diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-15 13:54:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-15 13:54:02 +0000 |
| commit | 5091bc2f9c53037f5234f613da07b8318d70c32b (patch) | |
| tree | cfc09e8f4cf655b1ac7a9d7401ed327f6d481fd4 /gcc/ada/socket.c | |
| parent | 96da32848363deea28bde71dc3d42c34e7067f7a (diff) | |
| download | gcc-5091bc2f9c53037f5234f613da07b8318d70c32b.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129319 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/socket.c')
| -rw-r--r-- | gcc/ada/socket.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index cae30e6619c..913d1ca40f6 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__ */ |