diff options
| author | Craig A. Berry <craigberry@mac.com> | 2015-07-09 18:06:00 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2015-07-09 18:06:00 -0500 |
| commit | 913cec4246caa89e35bb997c168e7ea2dfcadc4f (patch) | |
| tree | ea052ce3810c66821cd57c9d527895b2b07c0914 | |
| parent | a3b5f9fb00dafcb11d1766baaec76abc90f9fd06 (diff) | |
| download | perl-913cec4246caa89e35bb997c168e7ea2dfcadc4f.tar.gz | |
Remove obsolete __GNUC__isms under vms/.
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.
| -rw-r--r-- | vms/vms.c | 18 | ||||
| -rw-r--r-- | vms/vmsish.h | 5 |
2 files changed, 0 insertions, 23 deletions
@@ -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; } diff --git a/vms/vmsish.h b/vms/vmsish.h index 52b7c5c2e3..b7aea852dc 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -42,11 +42,6 @@ #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> |