Remove obsolete __GNUC__isms under vms/.
authorCraig A. Berry <craigberry@mac.com>
Thu, 9 Jul 2015 23:06:00 +0000 (18:06 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 9 Jul 2015 23:06:00 +0000 (18:06 -0500)
There used to be some version of GCC 2.x that ran only on VAX that
was capable of building Perl.  But that was 18-20 years ago and
there have been no recent reports of building Perl with gcc on VMS.

If and when a modern version of GCC is ported to VMS (and the
underpinnings are reportedly there as part of GNAT Pro Ada, just
nothing complete or publicly available), these ancient workarounds
are at least as likely to do harm as good.  So get rid of them.

vms/vms.c
vms/vmsish.h

index 7afe1af..627044e 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -118,18 +118,6 @@ static int (*decw_term_port)
     void * char_buffer,
     void * char_change_buffer) = 0;
 
-/* gcc's header files don't #define direct access macros
- * corresponding to VAXC's variant structs */
-#ifdef __GNUC__
-#  define uic$v_format uic$r_uic_form.uic$v_format
-#  define uic$v_group uic$r_uic_form.uic$v_group
-#  define uic$v_member uic$r_uic_form.uic$v_member
-#  define prv$v_bypass  prv$r_prvdef_bits0.prv$v_bypass
-#  define prv$v_grpprv  prv$r_prvdef_bits0.prv$v_grpprv
-#  define prv$v_readall prv$r_prvdef_bits0.prv$v_readall
-#  define prv$v_sysprv  prv$r_prvdef_bits0.prv$v_sysprv
-#endif
-
 #if defined(NEED_AN_H_ERRNO)
 dEXT int h_errno;
 #endif
@@ -12395,13 +12383,7 @@ Perl_rmscopy(pTHX_ const char *spec_in, const char *spec_out, int preserve_dates
     if (preserve_dates & 2) {
       /* sys$close() will process xabrdt, not xabdat */
       xabrdt = cc$rms_xabrdt;
-#ifndef __GNUC__
       xabrdt.xab$q_rdt = xabdat.xab$q_rdt;
-#else
-      /* gcc doesn't like the assignment, since its prototype for xab$q_rdt
-       * is unsigned long[2], while DECC & VAXC use a struct */
-      memcpy(xabrdt.xab$q_rdt,xabdat.xab$q_rdt,sizeof xabrdt.xab$q_rdt);
-#endif
       fab_out.fab$l_xab = (void *) &xabrdt;
     }
 
index 52b7c5c..b7aea85 100644 (file)
 #define _tolower(c) (((c) < 'A' || (c) > 'Z') ? (c) : (c) | 040)
 
 /* Assorted things to look like Unix */
-#ifdef __GNUC__
-#ifndef _IOLBF /* gcc's stdio.h doesn't define this */
-#define _IOLBF 1
-#endif
-#endif
 #include <processes.h> /* for vfork() */
 #include <unixio.h>
 #include <unixlib.h>