summaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/g-soccon-aix.ads1
-rw-r--r--gcc/ada/g-soccon-freebsd.ads1
-rw-r--r--gcc/ada/g-soccon-hpux.ads1
-rw-r--r--gcc/ada/g-soccon-interix.ads1
-rw-r--r--gcc/ada/g-soccon-irix.ads1
-rw-r--r--gcc/ada/g-soccon-mingw.ads1
-rw-r--r--gcc/ada/g-soccon-solaris.ads1
-rw-r--r--gcc/ada/g-soccon-tru64.ads1
-rw-r--r--gcc/ada/g-soccon-unixware.ads1
-rw-r--r--gcc/ada/g-soccon-vxworks.ads1
-rw-r--r--gcc/ada/g-soccon.ads1
-rw-r--r--gcc/ada/gen-soccon.c584
-rw-r--r--gcc/ada/gsocket.h67
-rw-r--r--gcc/ada/socket.c43
14 files changed, 666 insertions, 39 deletions
diff --git a/gcc/ada/g-soccon-aix.ads b/gcc/ada/g-soccon-aix.ads
index 4361f0940e6..7bfb0351295 100644
--- a/gcc/ada/g-soccon-aix.ads
+++ b/gcc/ada/g-soccon-aix.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for AIX
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-freebsd.ads b/gcc/ada/g-soccon-freebsd.ads
index ca1da41bbd5..af7f274e63b 100644
--- a/gcc/ada/g-soccon-freebsd.ads
+++ b/gcc/ada/g-soccon-freebsd.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for i386 FreeBSD
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-hpux.ads b/gcc/ada/g-soccon-hpux.ads
index 56e0d5f594e..1ebf90a58e8 100644
--- a/gcc/ada/g-soccon-hpux.ads
+++ b/gcc/ada/g-soccon-hpux.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for HP/UX
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-interix.ads b/gcc/ada/g-soccon-interix.ads
index aa6ab5b0556..cd7829f13d9 100644
--- a/gcc/ada/g-soccon-interix.ads
+++ b/gcc/ada/g-soccon-interix.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for Interix
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-irix.ads b/gcc/ada/g-soccon-irix.ads
index b1201f69aa7..0fa8987d612 100644
--- a/gcc/ada/g-soccon-irix.ads
+++ b/gcc/ada/g-soccon-irix.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for SGI
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-mingw.ads b/gcc/ada/g-soccon-mingw.ads
index b963ca6474a..0d8f9b0698b 100644
--- a/gcc/ada/g-soccon-mingw.ads
+++ b/gcc/ada/g-soccon-mingw.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for MINGW32 NT
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-solaris.ads b/gcc/ada/g-soccon-solaris.ads
index 21dbac5d29a..a8dfe51f55a 100644
--- a/gcc/ada/g-soccon-solaris.ads
+++ b/gcc/ada/g-soccon-solaris.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for Solaris
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-tru64.ads b/gcc/ada/g-soccon-tru64.ads
index a0927e2bcfe..51190f7688f 100644
--- a/gcc/ada/g-soccon-tru64.ads
+++ b/gcc/ada/g-soccon-tru64.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for OSF
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-unixware.ads b/gcc/ada/g-soccon-unixware.ads
index d53931116d9..71b4a651d5a 100644
--- a/gcc/ada/g-soccon-unixware.ads
+++ b/gcc/ada/g-soccon-unixware.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for UnixWare
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon-vxworks.ads b/gcc/ada/g-soccon-vxworks.ads
index 0e4004f4481..1dd5c5a3500 100644
--- a/gcc/ada/g-soccon-vxworks.ads
+++ b/gcc/ada/g-soccon-vxworks.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for VxWorks
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads
index 54c931a04b3..c95eda573d8 100644
--- a/gcc/ada/g-soccon.ads
+++ b/gcc/ada/g-soccon.ads
@@ -36,6 +36,7 @@
-- directly with'ed by an applications program.
-- This is the version for GNU/Linux
+-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is
diff --git a/gcc/ada/gen-soccon.c b/gcc/ada/gen-soccon.c
new file mode 100644
index 00000000000..de63816cc09
--- /dev/null
+++ b/gcc/ada/gen-soccon.c
@@ -0,0 +1,584 @@
+/*****************************************************************************
+** **
+** GNAT SYSTEM UTILITIES **
+** **
+** G E N - S O C C O N **
+** **
+** Copyright (C) 2004 Free Software Foundation, Inc. **
+** **
+** GNAT is free software; you can redistribute it and/or modify it under **
+** terms of the GNU General Public License as published by the Free Soft- **
+** ware Foundation; either version 2, or (at your option) any later ver- **
+** sion. GNAT is distributed in the hope that it will be useful, but WITH- **
+** OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY **
+** or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License **
+** for more details. You should have received a copy of the GNU General **
+** Public License distributed with GNAT; see file COPYING. If not, write **
+** to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, **
+** MA 02111-1307, USA. **
+** **
+** GNAT was originally developed by the GNAT team at New York University. **
+** Extensive contributions were provided by Ada Core Technologies Inc. **
+** **
+******************************************************************************/
+
+/* This program generates g-soccon.ads */
+
+#include <stdio.h>
+#include <string.h>
+
+#include "socket.h"
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <sys/filio.h>
+#include <netdb.h>
+
+struct line {
+ char *text;
+ char *value;
+ char *comment;
+ struct line *next;
+};
+
+struct line *first = NULL, *last = NULL;
+
+#define TXT(_text) add_line(_text, NULL, NULL);
+/* Plain text */
+
+#define _NL TXT("")
+/* Empty line */
+
+#define itoad(n) itoa ("%d", n)
+#define itoax(n) itoa ("16#%08x#", n)
+
+#define CND(name,comment) add_line(#name, itoad (name), comment);
+/* Constant (decimal) */
+
+#define CNX(name,comment) add_line(#name, itoax (name), comment);
+/* Constant (hexadecimal) */
+
+#define CN_(name,comment) add_line(#name, name, comment);
+/* Constant (generic) */
+
+void output (void);
+/* Generate output spec */
+
+char *itoa (char *, int);
+/* int to string */
+
+void add_line (char *, char*, char*);
+
+void main (void) {
+
+TXT("------------------------------------------------------------------------------")
+TXT("-- --")
+TXT("-- GNAT COMPILER COMPONENTS --")
+TXT("-- --")
+TXT("-- G N A T . S O C K E T S . C O N S T A N T S --")
+TXT("-- --")
+TXT("-- S p e c --")
+TXT("-- --")
+TXT("-- Copyright (C) 2000-2004 Free Software Foundation, Inc. --")
+TXT("-- --")
+TXT("-- GNAT is free software; you can redistribute it and/or modify it under --")
+TXT("-- terms of the GNU General Public License as published by the Free Soft- --")
+TXT("-- ware Foundation; either version 2, or (at your option) any later ver- --")
+TXT("-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --")
+TXT("-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --")
+TXT("-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --")
+TXT("-- for more details. You should have received a copy of the GNU General --")
+TXT("-- Public License distributed with GNAT; see file COPYING. If not, write --")
+TXT("-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --")
+TXT("-- MA 02111-1307, USA. --")
+TXT("-- --")
+TXT("-- As a special exception, if other files instantiate generics from this --")
+TXT("-- unit, or you link this unit with other files to produce an executable, --")
+TXT("-- this unit does not by itself cause the resulting executable to be --")
+TXT("-- covered by the GNU General Public License. This exception does not --")
+TXT("-- however invalidate any other reasons why the executable file might be --")
+TXT("-- covered by the GNU Public License. --")
+TXT("-- --")
+TXT("-- GNAT was originally developed by the GNAT team at New York University. --")
+TXT("-- Extensive contributions were provided by Ada Core Technologies Inc. --")
+TXT("-- --")
+TXT("------------------------------------------------------------------------------")
+_NL
+TXT("-- This package provides target dependent definitions of constant for use")
+TXT("-- by the GNAT.Sockets package (g-socket.ads). This package should not be")
+TXT("-- directly with'ed by an applications program.")
+_NL
+TXT("-- This is the version for " TARGET)
+TXT("-- This file is generated automatically, do not modify it by hand! Instead,")
+TXT("-- make changes to gen-soccon.c and re-run it on each target.")
+_NL
+TXT("package GNAT.Sockets.Constants is")
+_NL
+TXT(" --------------")
+TXT(" -- Families --")
+TXT(" --------------")
+_NL
+
+#ifndef AF_INET
+#define AF_INET -1
+#endif
+CND(AF_INET, "IPv4 address family")
+
+#ifndef AF_INET6
+#define AF_INET6 -1
+#endif
+CND(AF_INET6, "IPv6 address family")
+_NL
+TXT(" -----------")
+TXT(" -- Modes --")
+TXT(" -----------")
+_NL
+
+#ifndef SOCK_STREAM
+#define SOCK_STREAM -1
+#endif
+CND(SOCK_STREAM, "Stream socket")
+
+#ifndef SOCK_DGRAM
+#define SOCK_DGRAM -1
+#endif
+CND(SOCK_DGRAM, "Datagram socket")
+_NL
+TXT(" -------------------")
+TXT(" -- Socket errors --")
+TXT(" -------------------")
+_NL
+
+#ifndef EACCES
+#define EACCES -1
+#endif
+CND(EACCES, "Permission denied")
+
+#ifndef EADDRINUSE
+#define EADDRINUSE -1
+#endif
+CND(EADDRINUSE, "Address already in use")
+
+#ifndef EADDRNOTAVAIL
+#define EADDRNOTAVAIL -1
+#endif
+CND(EADDRNOTAVAIL, "Cannot assign address")
+
+#ifndef EAFNOSUPPORT
+#define EAFNOSUPPORT -1
+#endif
+CND(EAFNOSUPPORT, "Addr family not supported")
+
+#ifndef EALREADY
+#define EALREADY -1
+#endif
+CND(EALREADY, "Operation in progress")
+
+#ifndef EBADF
+#define EBADF -1
+#endif
+CND(EBADF, "Bad file descriptor")
+
+#ifndef ECONNABORTED
+#define ECONNABORTED -1
+#endif
+CND(ECONNABORTED, "Connection aborted")
+
+#ifndef ECONNREFUSED
+#define ECONNREFUSED -1
+#endif
+CND(ECONNREFUSED, "Connection refused")
+
+#ifndef ECONNRESET
+#define ECONNRESET -1
+#endif
+CND(ECONNRESET, "Connection reset by peer")
+
+#ifndef EDESTADDRREQ
+#define EDESTADDRREQ -1
+#endif
+CND(EDESTADDRREQ, "Destination addr required")
+
+#ifndef EFAULT
+#define EFAULT -1
+#endif
+CND(EFAULT, "Bad address")
+
+#ifndef EHOSTDOWN
+#define EHOSTDOWN -1
+#endif
+CND(EHOSTDOWN, "Host is down")
+
+#ifndef EHOSTUNREACH
+#define EHOSTUNREACH -1
+#endif
+CND(EHOSTUNREACH, "No route to host")
+
+#ifndef EINPROGRESS
+#define EINPROGRESS -1
+#endif
+CND(EINPROGRESS, "Operation now in progress")
+
+#ifndef EINTR
+#define EINTR -1
+#endif
+CND(EINTR, "Interrupted system call")
+
+#ifndef EINVAL
+#define EINVAL -1
+#endif
+CND(EINVAL, "Invalid argument")
+
+#ifndef EIO
+#define EIO -1
+#endif
+CND(EIO, "Input output error")
+
+#ifndef EISCONN
+#define EISCONN -1
+#endif
+CND(EISCONN, "Socket already connected")
+
+#ifndef ELOOP
+#define ELOOP -1
+#endif
+CND(ELOOP, "Too many symbolic lynks")
+
+#ifndef EMFILE
+#define EMFILE -1
+#endif
+CND(EMFILE, "Too many open files")
+
+#ifndef EMSGSIZE
+#define EMSGSIZE -1
+#endif
+CND(EMSGSIZE, "Message too long")
+
+#ifndef ENAMETOOLONG
+#define ENAMETOOLONG -1
+#endif
+CND(ENAMETOOLONG, "Name too long")
+
+#ifndef ENETDOWN
+#define ENETDOWN -1
+#endif
+CND(ENETDOWN, "Network is down")
+
+#ifndef ENETRESET
+#define ENETRESET -1
+#endif
+CND(ENETRESET, "Disconn. on network reset")
+
+#ifndef ENETUNREACH
+#define ENETUNREACH -1
+#endif
+CND(ENETUNREACH, "Network is unreachable")
+
+#ifndef ENOBUFS
+#define ENOBUFS -1
+#endif
+CND(ENOBUFS, "No buffer space available")
+
+#ifndef ENOPROTOOPT
+#define ENOPROTOOPT -1
+#endif
+CND(ENOPROTOOPT, "Protocol not available")
+
+#ifndef ENOTCONN
+#define ENOTCONN -1
+#endif
+CND(ENOTCONN, "Socket not connected")
+
+#ifndef ENOTSOCK
+#define ENOTSOCK -1
+#endif
+CND(ENOTSOCK, "Operation on non socket")
+
+#ifndef EOPNOTSUPP
+#define EOPNOTSUPP -1
+#endif
+CND(EOPNOTSUPP, "Operation not supported")
+
+#ifndef EPFNOSUPPORT
+#define EPFNOSUPPORT -1
+#endif
+CND(EPFNOSUPPORT, "Unknown protocol family")
+
+#ifndef EPROTONOSUPPORT
+#define EPROTONOSUPPORT -1
+#endif
+CND(EPROTONOSUPPORT, "Unknown protocol")
+
+#ifndef EPROTOTYPE
+#define EPROTOTYPE -1
+#endif
+CND(EPROTOTYPE, "Unknown protocol type")
+
+#ifndef ESHUTDOWN
+#define ESHUTDOWN -1
+#endif
+CND(ESHUTDOWN, "Cannot send once shutdown")
+
+#ifndef ESOCKTNOSUPPORT
+#define ESOCKTNOSUPPORT -1
+#endif
+CND(ESOCKTNOSUPPORT, "Socket type not supported")
+
+#ifndef ETIMEDOUT
+#define ETIMEDOUT -1
+#endif
+CND(ETIMEDOUT, "Connection timed out")
+
+#ifndef ETOOMANYREFS
+#define ETOOMANYREFS -1
+#endif
+CND(ETOOMANYREFS, "Too many references")
+
+#ifndef EWOULDBLOCK
+#define EWOULDBLOCK -1
+#endif
+CND(EWOULDBLOCK, "Operation would block")
+_NL
+TXT(" -----------------")
+TXT(" -- Host errors --")
+TXT(" -----------------")
+_NL
+
+#ifndef HOST_NOT_FOUND
+#define HOST_NOT_FOUND -1
+#endif
+CND(HOST_NOT_FOUND, "Unknown host")
+
+#ifndef TRY_AGAIN
+#define TRY_AGAIN -1
+#endif
+CND(TRY_AGAIN, "Host name lookup failure")
+
+#ifndef NO_DATA
+#define NO_DATA -1
+#endif
+CND(NO_DATA, "No data record for name")
+
+#ifndef NO_RECOVERY
+#define NO_RECOVERY -1
+#endif
+CND(NO_RECOVERY, "Non recoverable errors")
+_NL
+TXT(" -------------------")
+TXT(" -- Control flags --")
+TXT(" -------------------")
+_NL
+
+#ifndef FIONBIO
+#define FIONBIO -1
+#endif
+CNX(FIONBIO, "Set/clear non-blocking io")
+
+#ifndef FIONREAD
+#define FIONREAD -1
+#endif
+CNX(FIONREAD, "How many bytes to read")
+_NL
+TXT(" --------------------")
+TXT(" -- Shutdown modes --")
+TXT(" --------------------")
+_NL
+
+#ifndef SHUT_RD
+#define SHUT_RD -1
+#endif
+CND(SHUT_RD, "No more recv")
+
+#ifndef SHUT_WR
+#define SHUT_WR -1
+#endif
+CND(SHUT_WR, "No more send")
+
+#ifndef SHUT_RDWR
+#define SHUT_RDWR -1
+#endif
+CND(SHUT_RDWR, "No more recv/send")
+_NL
+TXT(" ---------------------")
+TXT(" -- Protocol levels --")
+TXT(" ---------------------")
+_NL
+
+#ifndef SOL_SOCKET
+#define SOL_SOCKET -1
+#endif
+CND(SOL_SOCKET, "Options for socket level")
+
+#ifndef IPPROTO_IP
+#define IPPROTO_IP -1
+#endif
+CND(IPPROTO_IP, "Dummy protocol for IP")
+
+#ifndef IPPROTO_UDP
+#define IPPROTO_UDP -1
+#endif
+CND(IPPROTO_UDP, "UDP")
+
+#ifndef IPPROTO_TCP
+#define IPPROTO_TCP -1
+#endif
+CND(IPPROTO_TCP, "TCP")
+_NL
+TXT(" -------------------")
+TXT(" -- Request flags --")
+TXT(" -------------------")
+_NL
+
+#ifndef MSG_OOB
+#define MSG_OOB -1
+#endif
+CND(MSG_OOB, "Process out-of-band data")
+
+#ifndef MSG_PEEK
+#define MSG_PEEK -1
+#endif
+CND(MSG_PEEK, "Peek at incoming data")
+
+#ifndef MSG_EOR
+#define MSG_EOR -1
+#endif
+CND(MSG_EOR, "Send end of record")
+
+#ifndef MSG_WAITALL
+#define MSG_WAITALL -1
+#endif
+CND(MSG_WAITALL, "Wait for full reception")
+
+#ifndef MSG_NOSIGNAL
+#define MSG_NOSIGNAL -1
+#endif
+CND(MSG_NOSIGNAL, "No SIGPIPE on send")
+
+#ifdef __linux__
+# define MSG_Forced_Flags "MSG_NOSIGNAL"
+#else
+# define MSG_Forced_Flags "0"
+#endif
+CN_(MSG_Forced_Flags, "")
+TXT(" -- Flags set on all send(2) calls")
+
+_NL
+TXT(" --------------------")
+TXT(" -- Socket options --")
+TXT(" --------------------")
+_NL
+
+#ifndef TCP_NODELAY
+#define TCP_NODELAY -1
+#endif
+CND(TCP_NODELAY, "Do not coalesce packets")
+
+#ifndef SO_SNDBUF
+#define SO_SNDBUF -1
+#endif
+CND(SO_SNDBUF, "Set/get send buffer size")
+
+#ifndef SO_RCVBUF
+#define SO_RCVBUF -1
+#endif
+CND(SO_RCVBUF, "Set/get recv buffer size")
+
+#ifndef SO_REUSEADDR
+#define SO_REUSEADDR -1
+#endif
+CND(SO_REUSEADDR, "Bind reuse local address")
+
+#ifndef SO_KEEPALIVE
+#define SO_KEEPALIVE -1
+#endif
+CND(SO_KEEPALIVE, "Enable keep-alive msgs")
+
+#ifndef SO_LINGER
+#define SO_LINGER -1
+#endif
+CND(SO_LINGER, "Defer close to flush data")
+
+#ifndef SO_ERROR
+#define SO_ERROR -1
+#endif
+CND(SO_ERROR, "Get/clear error status")
+
+#ifndef SO_BROADCAST
+#define SO_BROADCAST -1
+#endif
+CND(SO_BROADCAST, "Can send broadcast msgs")
+
+#ifndef IP_ADD_MEMBERSHIP
+#define IP_ADD_MEMBERSHIP -1
+#endif
+CND(IP_ADD_MEMBERSHIP, "Join a multicast group")
+
+#ifndef IP_DROP_MEMBERSHIP
+#define IP_DROP_MEMBERSHIP -1
+#endif
+CND(IP_DROP_MEMBERSHIP, "Leave a multicast group")
+
+#ifndef IP_MULTICAST_TTL
+#define IP_MULTICAST_TTL -1
+#endif
+CND(IP_MULTICAST_TTL, "Set/get multicast TTL")
+
+#ifndef IP_MULTICAST_LOOP
+#define IP_MULTICAST_LOOP -1
+#endif
+CND(IP_MULTICAST_LOOP, "Set/get mcast loopback")
+_NL
+TXT("end GNAT.Sockets.Constants;")
+
+output ();
+}
+
+void
+output (void) {
+ int text_max = 0, value_max = 0, l;
+ struct line *p;
+ char fmt[64];
+#define UPD_MAX(x) do { \
+ l = strlen (p->x); \
+ if (l > x ## _max) x ## _max = l; \
+} while (0)
+
+ for (p = first; p != NULL; p = p->next) {
+ if (p->value != NULL) {
+ UPD_MAX(text);
+ UPD_MAX(value);
+ }
+ }
+ sprintf (fmt, " %%-%ds : constant := %%%ds;%%s%%s\n",
+ text_max, value_max);
+
+ for (p = first; p != NULL; p = p->next) {
+ if (p->value == NULL) {
+ printf ("%s\n", p->text);
+ } else {
+ char *comment_sep = (strlen (p->comment) > 0)
+ ? " -- " : "";
+ printf (fmt, p->text, p->value, comment_sep, p->comment);
+ }
+ }
+}
+
+char *
+itoa (char *fmt, int n) {
+ char buf[32];
+ sprintf (buf, fmt, n);
+ return strdup (buf);
+}
+
+void add_line (char *_text, char *_value, char *_comment) {
+ struct line *l = (struct line *) malloc (sizeof (struct line));
+ l->text = _text;
+ l->value = _value;
+ l->comment = _comment;
+ l->next = NULL;
+ if (last == NULL)
+ first = last = l;
+ else {
+ last->next = l;
+ last = l;
+ }
+}
diff --git a/gcc/ada/gsocket.h b/gcc/ada/gsocket.h
new file mode 100644
index 00000000000..134aa2620de
--- /dev/null
+++ b/gcc/ada/gsocket.h
@@ -0,0 +1,67 @@
+/****************************************************************************
+ * *
+ * GNAT COMPILER COMPONENTS *
+ * *
+ * S O C K E T *
+ * *
+ * C Header File *
+ * *
+ * Copyright (C) 2004, Free Software Foundation, Inc. *
+ * *
+ * GNAT is free software; you can redistribute it and/or modify it under *
+ * terms of the GNU General Public License as published by the Free Soft- *
+ * ware Foundation; either version 2, or (at your option) any later ver- *
+ * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
+ * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
+ * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
+ * for more details. You should have received a copy of the GNU General *
+ * Public License distributed with GNAT; see file COPYING. If not, write *
+ * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
+ * MA 02111-1307, USA. *
+ * *
+ * As a special exception, if you link this file with other files to *
+ * produce an executable, this file does not by itself cause the resulting *
+ * executable to be covered by the GNU General Public License. This except- *
+ * ion does not however invalidate any other reasons why the executable *
+ * file might be covered by the GNU Public License. *
+ * *
+ * GNAT was originally developed by the GNAT team at New York University. *
+ * Extensive contributions were provided by Ada Core Technologies Inc. *
+ * *
+ ****************************************************************************/
+
+#ifdef __vxworks
+#include "vxWorks.h"
+#endif
+
+#ifdef IN_RTS
+#include "tconfig.h"
+#include "tsystem.h"
+
+#if defined (WINNT)
+#define FD_SETSIZE 1024
+#include <windows.h>
+
+#ifdef __MINGW32__
+#include "mingw32.h"
+#if STD_MINGW
+#include <winsock.h>
+#else
+#include <windows32/sockets.h>
+#endif
+#endif
+#endif
+
+#if defined (VMS)
+#define FD_SETSIZE 4096
+#include <sys/time.h>
+#endif
+
+#else
+#include "config.h"
+#include "system.h"
+#endif
+
+#if !(defined (VMS) || defined (__MINGW32__))
+# include <sys/socket.h>
+#endif
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index 6f5067fcabe..cffb0284d5d 100644
--- a/gcc/ada/socket.c
+++ b/gcc/ada/socket.c
@@ -2,11 +2,11 @@
* *
* GNAT COMPILER COMPONENTS *
* *
- * S O C K E T *
+ * S O C K E T *
* *
* C Implementation File *
* *
- * Copyright (C) 2003, Free Software Foundation, Inc. *
+ * Copyright (C) 2003-2004 Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@@ -30,44 +30,9 @@
* *
****************************************************************************/
-/* This file provides a portable binding to the fd set functions */
-
-#ifdef __vxworks
-#include "vxWorks.h"
-#endif
-
-#ifdef IN_RTS
-#include "tconfig.h"
-#include "tsystem.h"
-
-#if defined (WINNT)
-#define FD_SETSIZE 1024
-#include <windows.h>
-
-#ifdef __MINGW32__
-#include "mingw32.h"
-#if STD_MINGW
-#include <winsock.h>
-#else
-#include <windows32/sockets.h>
-#endif
-#endif
-#endif
-
-#if defined (VMS)
-#define FD_SETSIZE 4096
-#include <sys/time.h>
-#endif
-
-#else
-#include "config.h"
-#include "system.h"
-#endif
-
-#if !(defined (VMS) || defined (__MINGW32__))
-# include <sys/socket.h>
-#endif
+/* This file provides a portable binding to the sockets API */
+#include "gsocket.h"
#include "raise.h"
extern void __gnat_disable_sigpipe (int fd);
View Lorry Controller Status