diff options
Diffstat (limited to 'gcc/ada/g-comlin.adb')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 4359294..d472ee5 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -3534,10 +3534,7 @@ package body GNAT.Command_Line is & ": unrecognized option '" & Full_Switch (Parser) & "'"); - Put_Line (Standard_Error, - "Try `" - & Base_Name (Ada.Command_Line.Command_Name) - & " --help` for more information."); + Try_Help; raise; @@ -3588,4 +3585,20 @@ package body GNAT.Command_Line is end loop; end Build; + -------------- + -- Try_Help -- + -------------- + + -- Note: Any change to the message displayed should also be done in + -- gnatbind.adb that does not use this interface. + + procedure Try_Help is + begin + Put_Line + (Standard_Error, + "try `" & + Base_Name (Ada.Command_Line.Command_Name) & + " --help` for more information."); + end Try_Help; + end GNAT.Command_Line; |