diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 08:00:37 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 08:00:37 +0000 |
| commit | 307542e2ccaf036c4a47139c8b42240a3331e643 (patch) | |
| tree | cbd8cdc0a509cc509008b337b29e163fa5ef0628 /gcc/ada/g-comlin.adb | |
| parent | 1994083aff1b0a99355601bdd7103ba331537c52 (diff) | |
| download | gcc-307542e2ccaf036c4a47139c8b42240a3331e643.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177323 138bc75d-0d04-0410-961f-82ee72b054a4
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 b4d322ce16b..b39c57ae200 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); |