diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 13:14:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 13:14:39 +0000 |
| commit | 5d56d161527602e4c735691579f126f06c9b476e (patch) | |
| tree | f2a2edbfc29f3d780ec17e9ab899485ddfa14e1c /gcc/ada/adaint.c | |
| parent | 94ef14ded273ee194a771452c519e36409f46cb8 (diff) | |
| download | gcc-5d56d161527602e4c735691579f126f06c9b476e.tar.gz | |
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
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 06c95c65097..7452f626a5d 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 |