From aace458a3ebb6f55045922bbccd23926e2d16e71 Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Mon, 15 Oct 2007 15:54:02 +0200 Subject: adaint.c, [...]: Initial port to arm-mentor-nucleus. 2007-10-15 Geert Bosch * 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 --- gcc/ada/socket.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/ada/socket.c') diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index cae30e6..913d1ca 100644 --- a/gcc/ada/socket.c +++ b/gcc/ada/socket.c @@ -31,7 +31,10 @@ ****************************************************************************/ /* This file provides a portable binding to the sockets API */ - +#if defined (__nucleus__) +/* ??? Need proper implementation */ +#warning Sockets not yet supported on Nucleus +#else #include "gsocket.h" /* Include all the necessary system-specific headers and define the necessary macros (shared with gen-soccon). */ @@ -408,3 +411,4 @@ __gnat_get_h_errno (void) { return h_errno; #endif } +#endif /* __nucleus__ */ -- cgit v1.1