[multiple changes]

2010-06-18  Gary Dismukes  <dismukes@adacore.com>

	* gnat1drv.adb (Adjust_Global_Switches): Enable
	Use_Expression_With_Actions for AAMP and VM targets.

2010-06-18  Vincent Celier  <celier@adacore.com>

	* prj-nmsc.adb (Process_Linker): Recognize response file format GCC.

From-SVN: r160994

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 151c841..9c67c1f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+2010-06-18  Gary Dismukes  <dismukes@adacore.com>
+
+       * gnat1drv.adb (Adjust_Global_Switches): Enable
+       Use_Expression_With_Actions for AAMP and VM targets.
+
+2010-06-18  Vincent Celier  <celier@adacore.com>
+
+       * prj-nmsc.adb (Process_Linker): Recognize response file format GCC.
+
 2010-06-18  Thomas Quinot  <quinot@adacore.com>
 
        * exp_ch4.adb: Minor reformatting.

diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb
index 85d9dcc..33dcfb8 100644 (file)
--- a/gcc/ada/gnat1drv.adb
+++ b/gcc/ada/gnat1drv.adb
@@ -345,16 +345,12 @@ procedure Gnat1drv is
       elsif Debug_Flag_Dot_YY then
          Use_Expression_With_Actions := False;
 
-      --  If no debug flags, usage off for AAMP, VM, SCIL cases
+      --  If no debug flags, usage off for SCIL
 
-      elsif AAMP_On_Target
-        or else VM_Target /= No_VM
-        or else Generate_SCIL
-      then
+      elsif Generate_SCIL then
          Use_Expression_With_Actions := False;
 
-      --  Otherwise normal gcc back end, which does implement this feature so
-      --  by default we allow its use.
+      --  Otherwise this feature is implemented, so we allow its use
 
       else
          Use_Expression_With_Actions := True;
@@ -377,8 +373,8 @@ procedure Gnat1drv is
       then
          Back_End_Handles_Limited_Types := False;
 
-         --  Otherwise normal gcc back end, for now still turn flag off by
-         --  default, since we have not verified proper back end handling.
+      --  Otherwise normal gcc back end, for now still turn flag off by
+      --  default, since we have not verified proper back end handling.
 
       else
          Back_End_Handles_Limited_Types := False;

diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index a3d6563..74a256d 100644 (file)
--- a/gcc/ada/prj-nmsc.adb
+++ b/gcc/ada/prj-nmsc.adb
@@ -1838,6 +1838,9 @@ package body Prj.Nmsc is
                         elsif Name = Name_Gnu then
                            Project.Config.Resp_File_Format := GNU;
 
+                        elsif Name_Buffer (1 .. Name_Len) = "gcc" then
+                           Project.Config.Resp_File_Format := GCC;
+
                         elsif Name = Name_Object_List then
                            Project.Config.Resp_File_Format := Object_List;