diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 15:14:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-13 15:14:39 +0200 |
| commit | a7209434bdc1561d3adf2bc2c848c3b6ba74f19d (patch) | |
| tree | f2a2edbfc29f3d780ec17e9ab899485ddfa14e1c /gcc/ada | |
| parent | ef76538fbbe91be4c00dd874750e924845d9b289 (diff) | |
| download | gcc-a7209434bdc1561d3adf2bc2c848c3b6ba74f19d.zip gcc-a7209434bdc1561d3adf2bc2c848c3b6ba74f19d.tar.gz gcc-a7209434bdc1561d3adf2bc2c848c3b6ba74f19d.tar.bz2 | |
[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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 15 | ||||
| -rw-r--r-- | gcc/ada/adaint.c | 9 | ||||
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/output.adb | 4 | ||||
| -rw-r--r-- | 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 <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 --- 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 |