From 7379c1371f2a83edbdf125a20b7565be983932dc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Mon, 30 Nov 2015 06:43:17 +0100
Subject: Fix ghdl_simul build.

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

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb
index bf886e0c2..89d9f271c 100644
--- a/src/ghdldrv/ghdlsimul.adb
+++ b/src/ghdldrv/ghdlsimul.adb
@@ -152,14 +152,14 @@ package body Ghdlsimul is
          elsif Arg.all = "--stats" then
             Simulation.Disp_Stats := True;
          elsif Arg.all = "-i" then
+            Simulation.Flag_Debugger := True;
             Simulation.Flag_Interractive := True;
          else
             Decode_Option (Arg.all, Status);
             case Status is
                when Decode_Option_Last =>
                   exit;
-               when Decode_Option_Help =>
-                  --  FIXME: is that correct ?
+               when Decode_Option_Stop =>
                   exit;
                when Decode_Option_Ok =>
                   null;
-- 
cgit v1.2.3