diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-01 20:33:05 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-02 02:31:07 +0200 |
| commit | 21259ac719911175ea0cb3601cc2423de8fed755 (patch) | |
| tree | 9811e00cb44b5b0b0bc339891089d396adc7fc37 /src/synth/elab-debugger.adb | |
| parent | 8a8f3d867598a1f9e3125c9d0648ae20a7144253 (diff) | |
| download | ghdl-21259ac719911175ea0cb3601cc2423de8fed755.tar.gz ghdl-21259ac719911175ea0cb3601cc2423de8fed755.tar.bz2 ghdl-21259ac719911175ea0cb3601cc2423de8fed755.zip | |
synth: improve debug subprograms
Diffstat (limited to 'src/synth/elab-debugger.adb')
| -rw-r--r-- | src/synth/elab-debugger.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 0f5ecb9dc..66b1fe835 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -560,6 +560,12 @@ package body Elab.Debugger is With_Objs := True; elsif Line (F .. L) = "-R" then Recurse := True; + elsif Line (F .. L) = "-h" then + Put_Line ("options:"); + Put_Line (" -h this help"); + Put_Line (" -v with objects"); + Put_Line (" -R recurses"); + return; else Put_Line ("unknown option: " & Line (F .. L)); return; |