diff options
| author | Geert Bosch <bosch@adacore.com> | 2007-10-15 15:54:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-10-15 15:54:02 +0200 |
| commit | aace458a3ebb6f55045922bbccd23926e2d16e71 (patch) | |
| tree | cfc09e8f4cf655b1ac7a9d7401ed327f6d481fd4 /gcc/ada/expect.c | |
| parent | 67ce0d7e96fd6802815643dbfb8505fad5318e95 (diff) | |
| download | gcc-aace458a3ebb6f55045922bbccd23926e2d16e71.zip gcc-aace458a3ebb6f55045922bbccd23926e2d16e71.tar.gz gcc-aace458a3ebb6f55045922bbccd23926e2d16e71.tar.bz2 | |
adaint.c, [...]: Initial port to arm-mentor-nucleus.
2007-10-15 Geert Bosch <bosch@adacore.com>
* adaint.c, socket.c, cal.c: Initial port to arm-mentor-nucleus.
* expect.c: Initial port to arm-mentor-nucleus.
Use kill for __gnat_kill() on VMS.
From-SVN: r129319
Diffstat (limited to 'gcc/ada/expect.c')
| -rw-r--r-- | gcc/ada/expect.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c index 7503de0..a909232 100644 --- a/gcc/ada/expect.c +++ b/gcc/ada/expect.c @@ -55,6 +55,8 @@ /* ??? See comment in adaint.c. */ #define GCC_RESOURCE_H #include <sys/wait.h> +#elif defined (__nucleus__) +/* No wait.h available on Nucleus */ #else #include <sys/wait.h> #endif @@ -243,6 +245,13 @@ __gnat_expect_poll (int *fd, int num_fd, int timeout, int *is_set) #include <stdio.h> #include <vms/stsdef.h> #include <vms/iodef.h> +#include <signal.h> + +void +__gnat_kill (int pid, int sig, int close) +{ + kill (pid, sig); +} int __gnat_waitpid (int pid) @@ -367,8 +376,7 @@ __gnat_expect_poll (int *fd, int num_fd, int timeout, int *is_set) return ready; } - -#elif defined (__unix__) +#elif defined (__unix__) && !defined (__nucleus__) #ifdef __hpux__ #include <sys/ptyio.h> |