diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 10:00:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-04 10:00:37 +0200 |
| commit | 8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0 (patch) | |
| tree | cbd8cdc0a509cc509008b337b29e163fa5ef0628 /gcc/ada/g-comlin.adb | |
| parent | cfae2bed7e333ce6366be60f5631adedab373b61 (diff) | |
| download | gcc-8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0.zip gcc-8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0.tar.gz gcc-8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0.tar.bz2 | |
[multiple changes]
2011-08-04 Jerome Lambourg <lambourg@adacore.com>
* g-comlin.adb (For_Each_Simple_Switch.Is_In_Config): Remove the
invalid checks of the Parameter, making Remove_Switch not working
correctly.
2011-08-04 Arnaud Charlet <charlet@adacore.com>
* targparm.ads: Update header: no run-time exception is needed on this
file.
2011-08-04 Vincent Celier <celier@adacore.com>
* a-fihema.adb: Use System.IO instead of GNAT.IO
2011-08-04 Thomas Quinot <quinot@adacore.com>
* sem_ch3.adb (Access_Definition): Anonymous access to subprogram types
are forbidden in Compiler_Unit mode.
From-SVN: r177323
Diffstat (limited to 'gcc/ada/g-comlin.adb')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 24 |
1 files changed, 9 insertions, 15 deletions
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index b4d322c..b39c57a 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -1917,25 +1917,19 @@ package body GNAT.Command_Line is end if; when Parameter_With_Optional_Space => - if Parameter /= "" then - Callback (Switch, " ", Parameter, Index => Index); - Found_In_Config := True; - return False; - end if; + Callback (Switch, " ", Parameter, Index => Index); + Found_In_Config := True; + return False; when Parameter_With_Space_Or_Equal => - if Parameter /= "" then - Callback (Switch, "=", Parameter, Index => Index); - Found_In_Config := True; - return False; - end if; + Callback (Switch, "=", Parameter, Index => Index); + Found_In_Config := True; + return False; when Parameter_No_Space => - if Parameter /= "" then - Callback (Switch, "", Parameter, Index); - Found_In_Config := True; - return False; - end if; + Callback (Switch, "", Parameter, Index); + Found_In_Config := True; + return False; when Parameter_Optional => Callback (Switch, "", Parameter, Index); |