diff options
| author | Pascal Obry <obry@adacore.com> | 2005-03-18 12:46:57 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-03-18 12:46:57 +0100 |
| commit | e602394c38b7ad5053769e2ff03550fd5b5d412a (patch) | |
| tree | c6f054c8d8afc51a137d9e7ead083ea1a480e398 /gcc/ada/adaint.c | |
| parent | bae802f98b2514a0a93a615db8dbdd957f4c7111 (diff) | |
| download | gcc-e602394c38b7ad5053769e2ff03550fd5b5d412a.zip gcc-e602394c38b7ad5053769e2ff03550fd5b5d412a.tar.gz gcc-e602394c38b7ad5053769e2ff03550fd5b5d412a.tar.bz2 | |
adaint.h, adaint.c (__gnat_waitpid): Moved to expect.c where it is used.
2005-03-17 Pascal Obry <obry@adacore.com>
* adaint.h, adaint.c (__gnat_waitpid): Moved to expect.c where it is
used.
* expect.c (__gnat_waitpid): Moved here from adaint.c.
Reimplement under Win32 using Win32 API.
(__gnat_kill) [Win32]: Properly close the process handle before leaving
this routine.
From-SVN: r96659
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 73be5e1..cbe96f4 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -1927,23 +1927,6 @@ __gnat_portable_wait (int *process_status) return pid; } -int -__gnat_waitpid (int pid) -{ - int status = 0; - -#if defined (_WIN32) - cwait (&status, pid, _WAIT_CHILD); -#elif defined (__EMX__) || defined (MSDOS) || defined (__vxworks) - /* Status is already zero, so nothing to do. */ -#else - waitpid (pid, &status, 0); - status = WEXITSTATUS (status); -#endif - - return status; -} - void __gnat_os_exit (int status) { |