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/adaint.c | |
| parent | ef76538fbbe91be4c00dd874750e924845d9b289 (diff) | |
| download | gcc-a7209434bdc1561d3adf2bc2c848c3b6ba74f19d.tar.gz | |
[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/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 |