diff options
author | Karl Williamson <khw@cpan.org> | 2021-06-16 21:03:42 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-12-18 14:10:57 -0700 |
commit | 6bdb1ede0d812e79de2436e39c513a686caac9df (patch) | |
tree | 7bb63b4ebcf3cd82e46d5c354ae17576c4ed0600 | |
parent | 5d73aca10c2e46b1f9ea1687f0f3e1a95a489653 (diff) | |
download | perl-6bdb1ede0d812e79de2436e39c513a686caac9df.tar.gz |
dist/IO/IO.xs: Rmv defns that ppport.h supplies
No sense trying to derive them ourselves.
-rw-r--r-- | dist/IO/IO.pm | 2 | ||||
-rw-r--r-- | dist/IO/IO.xs | 34 |
2 files changed, 1 insertions, 35 deletions
diff --git a/dist/IO/IO.pm b/dist/IO/IO.pm index 3004d64032..a75cbdf23c 100644 --- a/dist/IO/IO.pm +++ b/dist/IO/IO.pm @@ -7,7 +7,7 @@ use Carp; use strict; use warnings; -our $VERSION = "1.48"; +our $VERSION = "1.49"; XSLoader::load 'IO', $VERSION; sub import { diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs index b1227f003c..e3836370cc 100644 --- a/dist/IO/IO.xs +++ b/dist/IO/IO.xs @@ -49,10 +49,6 @@ typedef FILE * OutputStream; #define MY_start_subparse(fmt,flags) start_subparse(fmt,flags) -#ifndef gv_stashpvn -#define gv_stashpvn(str,len,flags) gv_stashpv(str,flags) -#endif - #ifndef __attribute__noreturn__ # define __attribute__noreturn__ #endif @@ -61,10 +57,6 @@ typedef FILE * OutputStream; # define NORETURN_FUNCTION_END /* NOT REACHED */ return 0 #endif -#ifndef dVAR -# define dVAR dNOOP -#endif - #ifndef OpSIBLING # define OpSIBLING(o) (o)->op_sibling #endif @@ -77,32 +69,6 @@ not_here(const char *s) NORETURN_FUNCTION_END; } -#ifndef UVCHR_IS_INVARIANT /* For use with Perls without this macro */ -# if ('A' == 65) -# define UVCHR_IS_INVARIANT(cp) ((cp) < 128) -# elif (defined(NATIVE_IS_INVARIANT)) /* EBCDIC on old Perl */ -# define UVCHR_IS_INVARIANT(cp) ((cp) < 256 && NATIVE_IS_INVARIANT(cp)) -# elif defined(isASCII) /* EBCDIC on very old Perl */ - /* In EBCDIC, the invariants are the code points corresponding to ASCII, - * plus all the controls. All but one EBCDIC control is below SPACE; it - * varies depending on the code page, determined by the ord of '^' */ -# define UVCHR_IS_INVARIANT(cp) (isASCII(cp) \ - || (cp) < ' ' \ - || (('^' == 106) /* POSIX-BC */ \ - ? (cp) == 95 \ - : (cp) == 0xFF)) /* 1047 or 037 */ -# else /* EBCDIC on very very old Perl */ - /* This assumes isascii() is available, but that could be fixed by - * having the macro test for each printable ASCII char */ -# define UVCHR_IS_INVARIANT(cp) (isascii(cp) \ - || (cp) < ' ' \ - || (('^' == 106) /* POSIX-BC */ \ - ? (cp) == 95 \ - : (cp) == 0xFF)) /* 1047 or 037 */ -# endif -#endif - - #ifndef PerlIO #define PerlIO_fileno(f) fileno(f) #endif |