diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-12-20 08:07:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-12-20 21:23:30 +0100 |
| commit | 7345e9733aff6a749ee1332d7c1ab8a1d9e6a909 (patch) | |
| tree | 1809aad0bb698fd53f4f5d490891f6662c21a419 /src/ghdldrv/ghdlmain.adb | |
| parent | 823e1deb863542192253bf2434e1d2c719e50b42 (diff) | |
| download | ghdl-7345e9733aff6a749ee1332d7c1ab8a1d9e6a909.tar.gz ghdl-7345e9733aff6a749ee1332d7c1ab8a1d9e6a909.tar.bz2 ghdl-7345e9733aff6a749ee1332d7c1ab8a1d9e6a909.zip | |
Add target in bug-box, add --bug-box internal command.
Diffstat (limited to 'src/ghdldrv/ghdlmain.adb')
| -rw-r--r-- | src/ghdldrv/ghdlmain.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb index 2f1d37e8d..abe7dc045 100644 --- a/src/ghdldrv/ghdlmain.adb +++ b/src/ghdldrv/ghdlmain.adb @@ -129,7 +129,13 @@ package body Ghdlmain is Put_Line ("COMMAND is one of:"); C := First_Cmd; while C /= null loop - Put_Line (Get_Short_Help (C.all)); + declare + S : constant String := Get_Short_Help (C.all); + begin + if S'Length > 1 and then S (S'First) /= '!' then + Put_Line (S); + end if; + end; C := C.Next; end loop; New_Line; |