From 0b3d16c08a9b4082e5b3fbfb82e282f49fe7ac1e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 2 Aug 2011 16:02:45 +0200 Subject: [multiple changes] 2011-08-02 Thomas Quinot * s-taskin.ads: Minor reformatting. 2011-08-02 Emmanuel Briot * g-comlin.adb (Display_Help): swap the order in which it prints the short help and the general usage. 2011-08-02 Ed Schonberg * sem_ch12.adb (Analyze_Generic_Subprogram_Declaration): copy properly the aspect declarations and attach them to the generic copy for subsequent analysis. (Analyze_Subprogram_Instantiation): copy explicitly the aspect declarations of the generic tree to the new subprogram declarations. * sem_attr.adb (Check_Precondition_Postcondition): recognize conditions that apply to a subprogram instance. 2011-08-02 Robert Dewar * gnat_rm.texi: Clarify doc on pragma Source_File_Name[_Project]. 2011-08-02 Ed Schonberg * sem_ch3.adb (Derived_Type_Declaration): When checking that a untagged private type with a tagged full view is not derived in the immediate scope of the partial view, (RM 7.3 (7)) use the scope of the base type. From-SVN: r177157 --- gcc/ada/g-comlin.adb | 8 ++++---- 1 file changed, 4 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 217328e..1963520 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -3176,6 +3176,10 @@ package body GNAT.Command_Line is return; end if; + if Config.Help /= null and then Config.Help.all /= "" then + Put_Line (Config.Help.all); + end if; + if Config.Usage /= null then Put_Line ("Usage: " & Base_Name @@ -3185,10 +3189,6 @@ package body GNAT.Command_Line is & " [switches] [arguments]"); end if; - if Config.Help /= null and then Config.Help.all /= "" then - Put_Line (Config.Help.all); - end if; - Display_Section_Help (""); if Config.Sections /= null and then Config.Switches /= null then -- cgit v1.1