From 8e293fbdc67c2db30becbf0a7deeb77f6bd9d0b0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 4 Aug 2011 10:00:37 +0200 Subject: [multiple changes] 2011-08-04 Jerome Lambourg * 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 * targparm.ads: Update header: no run-time exception is needed on this file. 2011-08-04 Vincent Celier * a-fihema.adb: Use System.IO instead of GNAT.IO 2011-08-04 Thomas Quinot * sem_ch3.adb (Access_Definition): Anonymous access to subprogram types are forbidden in Compiler_Unit mode. From-SVN: r177323 --- gcc/ada/g-comlin.adb | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) (limited to 'gcc/ada/g-comlin.adb') 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); -- cgit v1.1