diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 15:05:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-12 15:05:11 +0200 |
| commit | 81eb625cc8f9f4d0b032c920cd217591fec2e171 (patch) | |
| tree | d66d363dfedd8a914cf032984a401e84ecb11169 /gcc/ada/g-comlin.adb | |
| parent | 9acd1a9c23637191ac030b6bfc9603f8708700e7 (diff) | |
| download | gcc-81eb625cc8f9f4d0b032c920cd217591fec2e171.zip gcc-81eb625cc8f9f4d0b032c920cd217591fec2e171.tar.gz gcc-81eb625cc8f9f4d0b032c920cd217591fec2e171.tar.bz2 | |
[multiple changes]
2010-10-12 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb, g-comlin.ads (Define_Switch): Put back (unused)
parameter Separator for backward compatibility.
2010-10-12 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, par-ch9.adb, impunit.adb: Minor reformatting.
2010-10-12 Emmanuel Briot <briot@adacore.com>
* switch-m.adb: Remove pragma Warnings (Off), not needed.
2010-10-12 Vincent Celier <celier@adacore.com>
* debug.adb: Put detailed documentation for gnatmake switch -dm.
2010-10-12 Vincent Celier <celier@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/g-comlin.adb')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 10 |
1 files changed, 8 insertions, 2 deletions
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; |