diff options
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; |