diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-06 06:48:13 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-06 06:48:13 +0200 |
commit | 9c872fdc23d7dd9ee81d100127d5e987eff5ca13 (patch) | |
tree | 1c5cab607bb7ee99d5b4893c2ca6bb23d9b1ffe2 /src/synth/libghdlsynth.adb | |
parent | 7da8782857a299f95e2cf1c348cd7f67f62cd2eb (diff) | |
download | ghdl-9c872fdc23d7dd9ee81d100127d5e987eff5ca13.tar.gz ghdl-9c872fdc23d7dd9ee81d100127d5e987eff5ca13.tar.bz2 ghdl-9c872fdc23d7dd9ee81d100127d5e987eff5ca13.zip |
libghdlsynth: fix startup crash.
Diffstat (limited to 'src/synth/libghdlsynth.adb')
-rw-r--r-- | src/synth/libghdlsynth.adb | 2 |
1 files changed, 2 insertions, 0 deletions
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; |