Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
XXX check if using ppport IO.xs: Remove fallback code furnished by pp…
…port
  • Loading branch information
khwilliamson committed Apr 2, 2021
1 parent ac94f9a commit 5ebbe09
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 43 deletions.
2 changes: 1 addition & 1 deletion dist/IO/IO.pm
Expand Up @@ -7,7 +7,7 @@ use Carp;
use strict;
use warnings;

our $VERSION = "1.46";
our $VERSION = "1.47";
XSLoader::load 'IO', $VERSION;

sub import {
Expand Down
42 changes: 0 additions & 42 deletions dist/IO/IO.xs
Expand Up @@ -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
Expand All @@ -61,14 +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

static int not_here(const char *s) __attribute__noreturn__;
static int
not_here(const char *s)
Expand All @@ -77,36 +65,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

static int
io_blocking(pTHX_ InputStream f, int block)
{
Expand Down

0 comments on commit 5ebbe09

Please sign in to comment.