From 5d56d161527602e4c735691579f126f06c9b476e Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 13 Jul 2009 13:14:39 +0000 Subject: [PATCH] 2009-07-13 Robert Dewar * output.adb: Minor comment addition for last change * sinfo.ads: Minor reformatting 2009-07-13 Vasiliy Fofanov * adaint.c (__gnat_portable_no_block_spawn): on Windows, return -1 when spawn failed like on all other targets. 2009-07-13 Ed Schonberg * 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 --- gcc/ada/ChangeLog | 15 +++++++++++++++ gcc/ada/adaint.c | 9 ++++++--- gcc/ada/exp_ch7.adb | 4 ++++ gcc/ada/output.adb | 4 ++++ gcc/ada/sinfo.ads | 1 - 5 files changed, 29 insertions(+), 4 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1b00425..764df66 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,18 @@ +2009-07-13 Robert Dewar + + * output.adb: Minor comment addition for last change + + * sinfo.ads: Minor reformatting + +2009-07-13 Vasiliy Fofanov + + * adaint.c (__gnat_portable_no_block_spawn): on Windows, return -1 when + spawn failed like on all other targets. + +2009-07-13 Ed Schonberg + + * exp_ch7.adb: Indicate origin of temporary for transient expression. + 2009-07-13 Thomas Quinot * s-oscons-tmplt.c: Add comment. diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 06c95c6..7452f62 100644 --- 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 --- 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 --- 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 --- 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 -- 2.7.4