diff options
| -rw-r--r-- | src/ghdldrv/ghdlsynth.adb | 6 | ||||
| -rw-r--r-- | src/synth/synth-flags.ads | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlsynth.adb b/src/ghdldrv/ghdlsynth.adb index 2bff76e04..bffe86bff 100644 --- a/src/ghdldrv/ghdlsynth.adb +++ b/src/ghdldrv/ghdlsynth.adb @@ -217,6 +217,8 @@ package body Ghdlsynth is elsif Option = "-dm2" then -- Reduce muxes, but do not create memories. Flag_Debug_Nomemory2 := True; + elsif Option = "-le" then + Flag_Debug_Elaborate := True; elsif Option = "-de" then Flag_Debug_Noexpand := True; elsif Option = "-t" then @@ -351,7 +353,9 @@ package body Ghdlsynth is -- Elaborate if E_Opt = Args'Last then - -- No unit. + -- No unit on the command line. + + -- Find the top-level unit. Top := Vhdl.Configuration.Find_Top_Entity (Libraries.Work_Library, Libraries.Command_Line_Location); if Top = Null_Node then diff --git a/src/synth/synth-flags.ads b/src/synth/synth-flags.ads index f9a1dfe87..a4034a073 100644 --- a/src/synth/synth-flags.ads +++ b/src/synth/synth-flags.ads @@ -55,6 +55,9 @@ package Synth.Flags is Flag_Trace_Statements : Boolean := False; + -- Display source of elaborated design. + Flag_Debug_Elaborate : Boolean := False; + -- True to start debugger at elaboration. Flag_Debug_Init : Boolean := False; |