diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-03-02 08:33:28 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-03-02 09:22:58 -0600 |
| commit | d08a24db4adccab03cc1b3f994d0956590b322ef (patch) | |
| tree | d7ebd174061f5bf6b593874535f11b81119e4501 /vms | |
| parent | a3e8baa63ea9808f99d9f569906c495c82941874 (diff) | |
| download | perl-d08a24db4adccab03cc1b3f994d0956590b322ef.tar.gz | |
tbuffer_t no longer exists on VMS.
It was replaced by the standard tms struct in v7.0, released in
1995. Explicit support for pre-7.0 was removed in 32995a382d65b
for Perl 5.16, but I missed the tbuffer_t bit, which tripped up
Nicholas in 25983af42cdcf2dc, because he asked for:
struct tbuffer_t
which via macro expansion became:
struct struct tms
which failed to compile. So remove code that's unnecessarily
different on VMS, leaving only a tbuffer_t compatibility macro
with a more appropriate comment so it will hopefully be less
likely to get used in new code.
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vmsish.h | 19 |
1 files changed, 4 insertions, 15 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 946bb4e638..8493150013 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -472,23 +472,12 @@ struct utimbuf { #define utime my_utime #endif -/* This is what times() returns, but <times.h> calls it tbuffer_t on VMS - * prior to v7.0. We check the DECC manifest to see whether it's already - * done this for us, relying on the fact that perl.h #includes <time.h> - * before it #includes "vmsish.h". +/* tbuffer_t was replaced with struct tms in v7.0. We no longer support + * systems prior to v7.0, but there could be old XS code out there that + * references tbuffer_t, so provide a compatibility macro. */ -#ifndef __TMS - struct tms { - clock_t tms_utime; /* user time */ - clock_t tms_stime; /* system time - always 0 on VMS */ - clock_t tms_cutime; /* user time, children */ - clock_t tms_cstime; /* system time, children - always 0 on VMS */ - }; -#else - /* The new headers change the times() prototype to tms from tbuffer */ -# define tbuffer_t struct tms -#endif +#define tbuffer_t struct tms /* Substitute our own routines for gmtime(), localtime(), and time(), * which allow us to implement the vmsish 'time' pragma, and work |