[multiple changes]

2009-08-10  Robert Dewar  <dewar@adacore.com>

	* exp_ch7.adb: Add ??? comment for last change

2009-08-10  Vincent Celier  <celier@adacore.com>

	* prj-env.adb (Add_To_Buffer): New procedure
	(Create_Config_Pragmas_File): Write to temporary file in one shot
	(Create_Mapping_File): Ditto
	(Set_Ada_Paths): Ditto

From-SVN: r150618

gcc/ada/ChangeLog

+2009-08-10  Robert Dewar  <dewar@adacore.com>
+
+	* exp_ch7.adb: Add ??? comment for last change
+
+2009-08-10  Vincent Celier  <celier@adacore.com>
+
+	* prj-env.adb (Add_To_Buffer): New procedure
+	(Create_Config_Pragmas_File): Write to temporary file in one shot
+	(Create_Mapping_File): Ditto
+	(Set_Ada_Paths): Ditto
+
 2009-08-10  Vincent Celier  <celier@adacore.com>
 
 	PR ada/17566

gcc/ada/exp_ch7.adb

@@ -3554,7 +3554,9 @@ package body Exp_Ch7 is
       Loc  : constant Source_Ptr := Sloc (N);
       E    : constant Entity_Id  := Make_Temporary (Loc, 'E', N);
       Etyp : constant Entity_Id  := Etype (N);
-      Expr : constant Node_Id    := Relocate_Node (N);
+
+      Expr : constant Node_Id := Relocate_Node (N);
+      --  Capture this node because the call to Adjust_SCIL_Node can ???
 
    begin
       --  If the relocated node is a function call then check if some SCIL