From ad252b4268f855b7df53092826b6f6a57ce4c4e3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Nov 2018 20:46:09 +0100
Subject: errorout: split and rework.

---
 src/ghdldrv/ghdlmain.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/ghdldrv/ghdlmain.adb')

diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb
index da23ea47f..52bfab5b9 100644
--- a/src/ghdldrv/ghdlmain.adb
+++ b/src/ghdldrv/ghdlmain.adb
@@ -22,6 +22,7 @@ with Version;
 with Bug;
 with Options;
 with Types; use Types;
+with Errorout.Console;
 
 package body Ghdlmain is
    procedure Init (Cmd : in out Command_Type)
@@ -271,7 +272,8 @@ package body Ghdlmain is
       First_Arg : Natural;
    begin
       --  Set program name for error message.
-      Errorout.Set_Program_Name (Command_Name);
+      Errorout.Console.Set_Program_Name (Command_Name);
+      Errorout.Console.Install_Handler;
 
       --  Handle case of no argument
       if Argument_Count = 0 then
-- 
cgit v1.2.3