diff options
| author | Tristan Gingold | 2014-05-07 05:22:03 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2014-05-07 05:22:03 +0200 |
| commit | ebfb88265397a6443dea3e2a6386ca1bc4608e43 (patch) | |
| tree | 08fefd1ec9f1916f32507fa08635fcbe2896ca02 /translate/ghdldrv | |
| parent | 6540ece0232e69fd016b358e03cca46ee7b62097 (diff) | |
| download | ghdl-ebfb88265397a6443dea3e2a6386ca1bc4608e43.tar.gz ghdl-ebfb88265397a6443dea3e2a6386ca1bc4608e43.tar.bz2 ghdl-ebfb88265397a6443dea3e2a6386ca1bc4608e43.zip | |
errorout: remove execution related subprograms (and exceptions).
Diffstat (limited to 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/ghdlsimul.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb index 107cc67..a50ed46 100644 --- a/translate/ghdldrv/ghdlsimul.adb +++ b/translate/ghdldrv/ghdlsimul.adb @@ -107,6 +107,8 @@ package body Ghdlsimul is Flag_Expect_Failure := True; elsif Arg.all = "--trace-elab" then Elaboration.Trace_Elaboration := True; + elsif Arg.all = "--trace-drivers" then + Elaboration.Trace_Drivers := True; elsif Arg.all = "--trace-annotation" then Annotations.Trace_Annotation := True; elsif Arg.all = "--trace-simu" then @@ -151,9 +153,6 @@ package body Ghdlsimul is Grtlink.Flag_String := Flags.Flag_String; Simulation.Simulation_Entity (Top_Conf); - exception - when Errorout.Execution_Constraint_Error => - null; end Run; function Decode_Option (Option : String) return Boolean |