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/vhdl/translate/ortho_front.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl/translate/ortho_front.adb')

diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb
index d7dee0015..1eb8a3cd8 100644
--- a/src/vhdl/translate/ortho_front.adb
+++ b/src/vhdl/translate/ortho_front.adb
@@ -27,6 +27,7 @@ with Translation;
 with Sem;
 with Sem_Lib; use Sem_Lib;
 with Errorout; use Errorout;
+with Errorout.Console;
 with GNAT.OS_Lib;
 with Bug;
 with Trans_Be;
@@ -73,6 +74,9 @@ package body Ortho_Front is
 
    procedure Init is
    begin
+      --  Set program name for error message.
+      Errorout.Console.Install_Handler;
+
       -- Initialize.
       Trans_Be.Register_Translation_Back_End;
 
-- 
cgit v1.2.3