diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:45:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:45:41 +0200 |
| commit | 137511a696a57aa5c43ef3dc4a916e662d0145c2 (patch) | |
| tree | 48cdf10c394f820ca752e2ab99799fa3ef64e2b9 /translate/ghdldrv | |
| parent | 3ab38c9b97e4e268d7ea5ae09e8acd2658c753e0 (diff) | |
| download | ghdl-137511a696a57aa5c43ef3dc4a916e662d0145c2.tar.gz ghdl-137511a696a57aa5c43ef3dc4a916e662d0145c2.tar.bz2 ghdl-137511a696a57aa5c43ef3dc4a916e662d0145c2.zip | |
ghdlsimul: add --trace-stmts, -i
Diffstat (limited to 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/ghdlsimul.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb index a50ed4651..d2a7772c9 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 |