diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-11-18 19:16:54 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-11-18 19:16:54 +0100 |
commit | 635bee2eaf5ef97d2e396d6a69b65525b71d6ecf (patch) | |
tree | c383a0ae06560e7d35eb9a72758406f79a883097 /src/ghdldrv | |
parent | 3bfd159dc7eec540fcaea48bad24a2ba3b9e2fe3 (diff) | |
download | ghdl-635bee2eaf5ef97d2e396d6a69b65525b71d6ecf.tar.gz ghdl-635bee2eaf5ef97d2e396d6a69b65525b71d6ecf.tar.bz2 ghdl-635bee2eaf5ef97d2e396d6a69b65525b71d6ecf.zip |
ghdl_simul: fix crash on option warning.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb index 31f084d62..2852f5f24 100644 --- a/src/ghdldrv/ghdlsimul.adb +++ b/src/ghdldrv/ghdlsimul.adb @@ -42,6 +42,7 @@ with Ghdlcomp; with Grt.Types; with Grt.Options; with Grt.Errors; +with Grt.Stdio; with Grtlink; package body Ghdlsimul is @@ -130,6 +131,7 @@ package body Ghdlsimul is -- Set progname (used for grt error messages) Argv0 := new String'(Ada.Command_Line.Command_Name & ASCII.Nul); Grt.Options.Progname := Grt.Types.To_Ghdl_C_String (Argv0.all'Address); + Grt.Errors.Set_Error_Stream (Grt.Stdio.stdout); for I in Args'Range loop Arg := Args (I); |