From bb01279084cc4ed7c7894d16be6af502fb5ad914 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 17 Jul 2014 08:47:15 +0200 Subject: [multiple changes] 2014-07-17 Robert Dewar * 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 * exp_dist.adb: Minor documentation clarification. 2014-07-17 Hristian Kirtchev * exp_util.adb (Is_Aliased): Revert previous change. 2014-07-17 Vincent Celier * 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 * gnat_ugn.texi: Minor update. From-SVN: r212728 --- gcc/ada/g-comlin.adb | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'gcc/ada/g-comlin.adb') 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; -- cgit v1.1