From 667b3d84361144ef7028afeae26033898ab51659 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Tue, 26 Jan 2010 09:46:13 +0000 Subject: [PATCH] switch-c.adb (Scan_Front_End_Switches): Take into account options that follow -gnatef. 2010-01-26 Vincent Celier * switch-c.adb (Scan_Front_End_Switches): Take into account options that follow -gnatef. Allow -gnateG to be followed by other options. From-SVN: r156234 --- gcc/ada/ChangeLog | 6 ++++++ gcc/ada/switch-c.adb | 5 ----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2beda2988da0..9c17576506a1 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2010-01-26 Vincent Celier + + * switch-c.adb (Scan_Front_End_Switches): Take into account options + that follow -gnatef. + Allow -gnateG to be followed by other options. + 2010-01-26 Robert Dewar * s-commun.ads, s-osprim-mingw.adb, s-stchop-vxworks.adb, sem_aggr.adb, diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 9ccba42377db..89b219afe802 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -403,15 +403,10 @@ package body Switch.C is Store_Switch := False; Ptr := Ptr + 1; Full_Path_Name_For_Brief_Errors := True; - return; -- -gnateG (save preprocessor output) when 'G' => - if Ptr < Max then - Bad_Switch (Switch_Chars); - end if; - Generate_Processed_File := True; Ptr := Ptr + 1;