diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-08-28 10:18:38 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-08-28 13:22:30 +0200 |
| commit | 3c8db435b536117eeceb65693e2493033a3d664b (patch) | |
| tree | 5d04b6801028c400140567ee2825cb45d4bfdb84 /src | |
| parent | c6ff96cb67935a59fe78f692974cfa5870b5f1d3 (diff) | |
| download | ghdl-3c8db435b536117eeceb65693e2493033a3d664b.tar.gz ghdl-3c8db435b536117eeceb65693e2493033a3d664b.tar.bz2 ghdl-3c8db435b536117eeceb65693e2493033a3d664b.zip | |
ghdlsynth: add debug option for elaboration
Diffstat (limited to 'src')
| -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; |