From 01b133bc895d91e096ae054b5d02c1e6e54ec2e1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 20 Nov 2019 07:40:25 +0100
Subject: synth: infrastructure for debugger.

---
 src/ghdldrv/ghdlsynth.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb
index 0795fcf6e..1523ab51c 100644
--- a/src/ghdldrv/ghdlsynth.adb
+++ b/src/ghdldrv/ghdlsynth.adb
@@ -117,6 +117,9 @@ package body Ghdlsynth is
       elsif Option = "-t" then
          Flag_Trace_Statements := True;
          Res := Option_Ok;
+      elsif Option = "-i" then
+         Flag_Debug_Init := True;
+         Res := Option_Ok;
       else
          Decode_Option (Command_Lib (Cmd), Option, Arg, Res);
       end if;
-- 
cgit v1.2.3