From 635bee2eaf5ef97d2e396d6a69b65525b71d6ecf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 18 Nov 2017 19:16:54 +0100
Subject: ghdl_simul: fix crash on option warning.

---
 src/ghdldrv/ghdlsimul.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ghdldrv')

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);
-- 
cgit v1.2.3