[multiple changes]

2009-07-13  Robert Dewar  <dewar@adacore.com>

	* output.adb: Minor comment addition for last change

	* sinfo.ads: Minor reformatting

2009-07-13  Vasiliy Fofanov  <fofanov@adacore.com>

	* adaint.c (__gnat_portable_no_block_spawn): on Windows, return -1 when
	spawn failed like on all other targets.

2009-07-13  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch7.adb: Indicate origin of temporary for transient expression.

From-SVN: r149584

gcc/ada/ChangeLog

+2009-07-13  Robert Dewar  <dewar@adacore.com>
+
+	* output.adb: Minor comment addition for last change
+
+	* sinfo.ads: Minor reformatting
+
+2009-07-13  Vasiliy Fofanov  <fofanov@adacore.com>
+
+	* adaint.c (__gnat_portable_no_block_spawn): on Windows, return -1 when
+	spawn failed like on all other targets.
+
+2009-07-13  Ed Schonberg  <schonberg@adacore.com>
+
+	* exp_ch7.adb: Indicate origin of temporary for transient expression.
+
 2009-07-13  Thomas Quinot  <quinot@adacore.com>
 
 	* s-oscons-tmplt.c: Add comment.

gcc/ada/adaint.c

@@ -2511,9 +2511,12 @@ __gnat_portable_no_block_spawn (char *args[])
 
   h = win32_no_block_spawn (args[0], args);
   if (h != NULL)
-    add_handle (h);
-
-  return GetProcessId (h);
+    {
+      add_handle (h);
+      return GetProcessId (h);
+    }
+  else
+    return -1;
 
 #else
 

gcc/ada/exp_ch7.adb

@@ -3556,6 +3556,10 @@ package body Exp_Ch7 is
       Etyp : constant Entity_Id := Etype (N);
 
    begin
+      --  Indicate the origin of the temporary, for better reports
+      --  in CodePeer.
+
+      Set_Related_Expression (E, N);
       Insert_Actions (N, New_List (
         Make_Object_Declaration (Loc,
           Defining_Identifier => E,

gcc/ada/output.adb

@@ -29,6 +29,10 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+--  Note: the pragma Warnings (Off) here is because ASIS compiles this unit
+--  without -gnatg, and System.OS_Lib is an implementation unit. This is a
+--  temporary kludge which will be better resolved later on ???
+
 pragma Warnings (Off);
 with System.OS_Lib; use System.OS_Lib;
 pragma Warnings (On);

gcc/ada/sinfo.ads

@@ -671,7 +671,6 @@ package Sinfo is
    --  Comes_From_Extended_Return_Statement (Flag18-Sem)
    --    Present in N_Simple_Return_Statement nodes. True if this node was
    --    constructed as part of the N_Extended_Return_Statement expansion.
-   --    .
 
    --  Compile_Time_Known_Aggregate (Flag18-Sem)
    --    Present in N_Aggregate nodes. Set for aggregates which can be fully