From 81eb625cc8f9f4d0b032c920cd217591fec2e171 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 12 Oct 2010 15:05:11 +0200 Subject: [multiple changes] 2010-10-12 Emmanuel Briot * g-comlin.adb, g-comlin.ads (Define_Switch): Put back (unused) parameter Separator for backward compatibility. 2010-10-12 Robert Dewar * sem_ch9.adb, par-ch9.adb, impunit.adb: Minor reformatting. 2010-10-12 Emmanuel Briot * switch-m.adb: Remove pragma Warnings (Off), not needed. 2010-10-12 Vincent Celier * debug.adb: Put detailed documentation for gnatmake switch -dm. 2010-10-12 Vincent Celier * gnat1drv.adb: When the compiler is invoked for a spec that needs aw body, do not generate an ALI file if neither -gnatc nor -gnatQ is used. From-SVN: r165375 --- gcc/ada/g-comlin.adb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'gcc/ada/g-comlin.adb') diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 3c2dbce..843dcd7 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -1599,7 +1599,8 @@ package body GNAT.Command_Line is Add_Switch (Cmd, Sw, Parameter (Parser)); else Add_Switch - (Cmd, Sw, Parameter (Parser), Section.all); + (Cmd, Sw, Parameter (Parser), + Section => Section.all); end if; end if; end; @@ -2052,13 +2053,15 @@ package body GNAT.Command_Line is (Cmd : in out Command_Line; Switch : String; Parameter : String := ""; + Separator : Character := ' '; Section : String := ""; Add_Before : Boolean := False) is Success : Boolean; pragma Unreferenced (Success); begin - Add_Switch (Cmd, Switch, Parameter, Section, Add_Before, Success); + Add_Switch (Cmd, Switch, Parameter, Separator, + Section, Add_Before, Success); end Add_Switch; ---------------- @@ -2069,10 +2072,13 @@ package body GNAT.Command_Line is (Cmd : in out Command_Line; Switch : String; Parameter : String := ""; + Separator : Character := ' '; Section : String := ""; Add_Before : Boolean := False; Success : out Boolean) is + pragma Unreferenced (Separator); -- ??? Should be removed eventually + procedure Add_Simple_Switch (Simple : String; Separator : String; -- cgit v1.1