From bd0bc43e58edb507c01ecabdfdf0e7717a825324 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 2 Sep 2011 09:10:07 +0200 Subject: [multiple changes] 2011-09-02 Ed Schonberg * sem_ch10.adb (Analyze_With_Clause): If the library unit is the generated subprogram declaration for a child unit body that acts as spec, use the original body in the with_clause, to prevent binding errors. 2011-09-02 Vincent Celier * gnat_ugn.texi: Adapt documentation of -gnateInnn to new VMS qualifier /MULTI_UNIT_INDEX= 2011-09-02 Johannes Kanig * g-comlin.adb (Getopt): Return when switch is dealt with automatically, instead of calling the callback function From-SVN: r178435 --- gcc/ada/g-comlin.adb | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/ada/g-comlin.adb') diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 5f5855f..43a6524 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -3290,11 +3290,14 @@ package body GNAT.Command_Line is with "Expected integer parameter for '" & Switch & "'"; end; + return; when Switch_String => Free (Config.Switches (Index).String_Output.all); Config.Switches (Index).String_Output.all := new String'(Parameter); + return; + end case; end if; -- cgit v1.1