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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149584 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1b00425..764df66 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,18 @@
+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.

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 06c95c6..7452f62 100644 (file)
--- a/gcc/ada/adaint.c
+++ b/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
 

diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index bd0d371..6b78f05 100644 (file)
--- a/gcc/ada/exp_ch7.adb
+++ b/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,

diff --git a/gcc/ada/output.adb b/gcc/ada/output.adb
index d675dec..bb5f5ae 100644 (file)
--- a/gcc/ada/output.adb
+++ b/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);

diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads
index 6864813..5f74107 100644 (file)
--- a/gcc/ada/sinfo.ads
+++ b/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