[multiple changes]

2014-08-01  Robert Dewar  <dewar@adacore.com>

	* gnat_rm.texi: Remove VMS specific rules for pragma Ident.
	* Makefile.rtl, adaint.c, gnat_rm.texi, s-asthan.adb, s-asthan.ads,
	s-filofl.ads, s-fishfl.ads, s-fvadfl.ads, s-fvaffl.ads, s-fvagfl.ads,
	s-po32gl.adb, s-po32gl.ads, s-vaflop.adb, s-vaflop.ads, s-vmexta.adb,
	s-vmexta.ads, sem_vfpt.adb, sem_vfpt.ads, socket.c: Remove VMS specific
	code.
	* gcc-interface/decl.c, gcc-interface/Makefile.in,
	gcc-interface/Make-lang.in: Ditto. Also remove refs to rTX.

2014-08-01  Pascal Obry  <obry@adacore.com>

	* s-os_lib.ads: Rename File_Size to Large_File_Size.

From-SVN: r213438

1 files changed, 3 insertions, 49 deletions

diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index 310de25..4a9e6ad 100644
--- a/gcc/ada/socket.c
+++ b/gcc/ada/socket.c
@@ -37,39 +37,7 @@
 
 #include "gsocket.h"
 
-#if defined(VMS)
-/*
- * For VMS, gsocket.h can't include sockets-related DEC C header files
- * when building the runtime (because these files are in a DEC C text library
- * (DECC$RTLDEF.TLB) not accessible to GCC). So, we generate a separate header
- * file along with s-oscons.ads and include it here.
- */
-# include "s-oscons.h"
-
-/*
- * We also need the declaration of struct hostent/servent, which s-oscons
- * can't provide, so we copy it manually here. This needs to be kept in synch
- * with the definition of that structure in the DEC C headers, which
- * hopefully won't change frequently.
- */
-typedef char *__netdb_char_ptr __attribute__ (( mode (SI) ));
-typedef __netdb_char_ptr *__netdb_char_ptr_ptr __attribute__ (( mode (SI) ));
-
-struct hostent {
-  __netdb_char_ptr     h_name;
-  __netdb_char_ptr_ptr h_aliases;
-  int                  h_addrtype;
-  int                  h_length;
-  __netdb_char_ptr_ptr h_addr_list;
-};
-
-struct servent {
-  __netdb_char_ptr     s_name;
-  __netdb_char_ptr_ptr s_aliases;
-  int                  s_port;
-  __netdb_char_ptr     s_proto;
-};
-#elif defined(__FreeBSD__)
+#if defined(__FreeBSD__)
 typedef unsigned int IOCTL_Req_T;
 #else
 typedef int IOCTL_Req_T;
@@ -142,7 +110,7 @@ __gnat_disable_all_sigpipes (void)
 #endif
 }
 
-#if defined (_WIN32) || defined (__vxworks) || defined (VMS)
+#if defined (_WIN32) || defined (__vxworks)
 /*
  * Signalling FDs operations are implemented in Ada for these platforms
  * (see subunit GNAT.Sockets.Thin.Signalling_Fds).
@@ -509,15 +477,6 @@ __gnat_get_h_errno (void) {
       return -1;
   }
 
-#elif defined (VMS)
-  /* h_errno is defined as follows in OpenVMS' version of <netdb.h>.
-   * However this header file is not available when building the GNAT
-   * runtime library using GCC, so we are hardcoding the definition
-   * directly. Note that the returned address is thread-specific.
-   */
-  extern int *decc$h_errno_get_addr ();
-  return *decc$h_errno_get_addr ();
-
 #elif defined (__rtems__)
   /* At this stage in the tool build, no networking .h files are available.
    * Newlib does not provide networking .h files and RTEMS is not built yet.
@@ -550,11 +509,6 @@ __gnat_socket_ioctl (int fd, IOCTL_Req_T req, int *arg) {
 
 #ifndef HAVE_INET_PTON
 
-#ifdef VMS
-# define in_addr_t int
-# define inet_addr decc$inet_addr
-#endif
-
 int
 __gnat_inet_pton (int af, const char *src, void *dst) {
   switch (af) {
@@ -592,7 +546,7 @@ __gnat_inet_pton (int af, const char *src, void *dst) {
   }
   return (rc == 0);
 
-#elif defined (__hpux__) || defined (VMS)
+#elif defined (__hpux__)
   in_addr_t addr;
   int rc = -1;