[PATCH][Ada] Updated GNAT Socket So *-rtems* Continues to Work

[Thomas Quinot]

* Joel Sherrill, 2008-07-22 :

> From the current code for gsocket.h in SVN.  Apparently RTEMS,
> VMS, and MINGW share this characteristic.
> 
> #if !(defined (VMS) || defined (__MINGW32__) || \
>      (defined(__rtems__) && defined(IN_RTS)))
> #include <sys/socket.h>
> #include <netinet/in.h>
> #include <netinet/tcp.h>
> #include <sys/ioctl.h>
> #include <netdb.h>
> #endif

Well for VMS and Windows the header files have different names but we do
include them in any case:

#ifdef __MINGW32__
#include <winsock2.h>
#include <ws2tcpip.h>
[...]
#elif defined(VMS)
#define FD_SETSIZE 4096
#ifndef IN_RTS
/* These DEC C headers are not available when building with GCC */
#include <in.h>
#include <tcp.h>
#include <ioctl.h>
#include <netdb.h>
#endif

-- 
Thomas Quinot, Ph.D. ** quinot@adacore.com ** Senior Software Engineer
               AdaCore -- Paris, France -- New York, USA