From 9c872fdc23d7dd9ee81d100127d5e987eff5ca13 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 6 Jun 2019 06:48:13 +0200
Subject: libghdlsynth: fix startup crash.

---
 src/synth/libghdlsynth.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/synth')

diff --git a/src/synth/libghdlsynth.adb b/src/synth/libghdlsynth.adb
index 683bfffad..3402cb0e1 100644
--- a/src/synth/libghdlsynth.adb
+++ b/src/synth/libghdlsynth.adb
@@ -21,6 +21,7 @@
 with Ghdlsynth;
 with Ghdlsimul;
 with GNAT.OS_Lib; use GNAT.OS_Lib;
+with Errorout.Console;
 
 package body Libghdlsynth is
    function Synth (Argc : Natural; Argv : C_String_Array_Acc) return Module
@@ -43,5 +44,6 @@ package body Libghdlsynth is
    Gnat_Version : constant String := "unknown compiler version" & ASCII.NUL;
    pragma Export (C, Gnat_Version, "__gnat_version");
 begin
+   Errorout.Console.Install_Handler;
    Ghdlsimul.Compile_Init;
 end Libghdlsynth;
-- 
cgit v1.2.3