aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorThomas Quinot <quinot@adacore.com>2008-08-05 16:37:01 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2008-08-05 16:37:01 +0200
commitc80645abe50e15e49353b9d1bce69ff46ed8d948 (patch)
treeb2e200e02cc243fe04a3644e74e6c1787c48babb /gcc
parent1a6587c86fc4b571ea5d825400d48b6aa85230cb (diff)
downloadgcc-c80645abe50e15e49353b9d1bce69ff46ed8d948.zip
gcc-c80645abe50e15e49353b9d1bce69ff46ed8d948.tar.gz
gcc-c80645abe50e15e49353b9d1bce69ff46ed8d948.tar.bz2
gsocket.h: Make this file includable in a Nucleus environment, which does not support sockets.
2008-08-05 Thomas Quinot <quinot@adacore.com> * gsocket.h: Make this file includable in a Nucleus environment, which does not support sockets. * socket.c: Remove Nucleus-specific hack. From-SVN: r138720
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/gsocket.h11
-rw-r--r--gcc/ada/socket.c13
2 files changed, 19 insertions, 5 deletions
diff --git a/gcc/ada/gsocket.h b/gcc/ada/gsocket.h
index 8b8c838..b98da05 100644
--- a/gcc/ada/gsocket.h
+++ b/gcc/ada/gsocket.h
@@ -30,6 +30,15 @@
* *
****************************************************************************/
+#if defined(__nucleus__)
+
+#warning Sockets not supported on this platform
+#undef HAVE_SOCKETS
+
+#else
+
+#define HAVE_SOCKETS
+
#ifndef _XOPEN_SOURCE_EXTENDED
#define _XOPEN_SOURCE_EXTENDED 1
/* For HP-UX */
@@ -190,3 +199,5 @@
#else
# define Has_Sockaddr_Len 0
#endif
+
+#endif /* defined(__nucleus__) */
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index bad0655..9653aae 100644
--- a/gcc/ada/socket.c
+++ b/gcc/ada/socket.c
@@ -31,11 +31,11 @@
****************************************************************************/
/* 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"
+
+#if defined(HAVE_SOCKETS)
+
/* Include all the necessary system-specific headers and define the
* necessary macros (shared with gen-oscons).
*/
@@ -417,4 +417,7 @@ __gnat_get_h_errno (void) {
return h_errno;
#endif
}
-#endif /* __nucleus__ */
+
+#else
+#warning Sockets are not supported on this platform
+#endif /* defined(HAVE_SOCKETS) */