diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:47:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-17 08:47:15 +0200 |
| commit | bb01279084cc4ed7c7894d16be6af502fb5ad914 (patch) | |
| tree | 4d92ba93eaafdfb64c5c62d90193677f7811f7c7 /gcc/ada/g-comlin.adb | |
| parent | ee10c0ec8875d997a4892fbbdf5f49c2d6d824b9 (diff) | |
| download | gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.zip gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.tar.gz gcc-bb01279084cc4ed7c7894d16be6af502fb5ad914.tar.bz2 | |
[multiple changes]
2014-07-17 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: Document new restriction No_Long_Long_Integers.
* exp_ch4.adb (Make_Array_Comparison_Op): Add note that we
could do this by actually expanding a real generic.
* a-tags.ads: Add comments about performance.
* sprint.adb (Sprint_Node_Actual, case N_Object_Declaration):
Print Etype of defining identifier, rather than the object
definition. More information.
2014-07-17 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb: Minor documentation clarification.
2014-07-17 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Is_Aliased): Revert previous change.
2014-07-17 Vincent Celier <celier@adacore.com>
* g-comlin.adb (Try_Help): New procedure.
(Getopt): Use new procedure Try_Help.
* g-comlin.ads (Try_Help): New procedure.
2014-07-17 Bob Duff <duff@adacore.com>
* gnat_ugn.texi: Minor update.
From-SVN: r212728
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; |