switch-c.adb (Scan_Front_End_Switches): Take into account options that follow -gnatef.

2010-01-26  Vincent Celier  <celier@adacore.com>

	* 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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2beda2988da075deb20567b47a871f68e0c09027..9c17576506a1c9f6c21b3b416514f4ec8808b8b5 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2010-01-26  Vincent Celier  <celier@adacore.com>
+
+       * 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  <dewar@adacore.com>
 
        * 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 9ccba42377db849f732d474d94f9e724a4752d0e..89b219afe8026c2b91a4529d7f46c10e317fb2ec 100644 (file)
--- 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;