From 137511a696a57aa5c43ef3dc4a916e662d0145c2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 29 May 2014 13:45:41 +0200
Subject: ghdlsimul: add --trace-stmts, -i

---
 translate/ghdldrv/ghdlsimul.adb | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'translate/ghdldrv/ghdlsimul.adb')

diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb
index a50ed46..d2a7772 100644
--- a/translate/ghdldrv/ghdlsimul.adb
+++ b/translate/ghdldrv/ghdlsimul.adb
@@ -36,6 +36,7 @@ with Annotations;
 with Elaboration;
 with Sim_Be;
 with Simulation;
+with Execution;
 
 with Ghdlcomp;
 
@@ -47,9 +48,6 @@ with Grtlink;
 
 package body Ghdlsimul is
 
-   Flag_Expect_Failure : Boolean := False;
-   pragma Unreferenced (Flag_Expect_Failure);
-
    procedure Compile_Init (Analyze_Only : Boolean) is
    begin
       if Analyze_Only then
@@ -104,7 +102,8 @@ package body Ghdlsimul is
          if Arg.all = "--disp-tree" then
             Simulation.Disp_Tree := True;
          elsif Arg.all = "--expect-failure" then
-            Flag_Expect_Failure := True;
+            Decode_Option (Arg.all, Status);
+            pragma Assert (Status = Decode_Option_Ok);
          elsif Arg.all = "--trace-elab" then
             Elaboration.Trace_Elaboration := True;
          elsif Arg.all = "--trace-drivers" then
@@ -113,6 +112,10 @@ package body Ghdlsimul is
             Annotations.Trace_Annotation := True;
          elsif Arg.all = "--trace-simu" then
             Simulation.Trace_Simulation := True;
+         elsif Arg.all = "--trace-stmt" then
+            Execution.Trace_Statements := True;
+         elsif Arg.all = "-i" then
+            Simulation.Flag_Interractive := True;
          else
             Decode_Option (Arg.all, Status);
             case Status is
-- 
cgit