In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/3f515a2edaad4fe95e69a30dcc8823e4d7353d43?hp=490b24f64ea32c981bbd0eb40a4e029676710954>

- Log -----------------------------------------------------------------
commit 3f515a2edaad4fe95e69a30dcc8823e4d7353d43
Author: Karl Williamson <k...@cpan.org>
Date:   Tue Mar 6 08:18:26 2018 -0700

    inline.h: #define some constants for EBCDIC
    
    I thought these weren't needed on EBCDIC builds, but it turns out there
    is occasion for them.

-----------------------------------------------------------------------

Summary of changes:
 inline.h | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inline.h b/inline.h
index 549b798ecf..8c20e7583a 100644
--- a/inline.h
+++ b/inline.h
@@ -382,8 +382,6 @@ S_is_utf8_invariant_string_loc(const U8* const s, STRLEN 
len, const U8 ** ep)
 
     send = s + len;
 
-#ifndef EBCDIC
-
 /* This looks like 0x010101... */
 #  define PERL_COUNT_MULTIPLIER   (~ (UINTMAX_C(0)) / 0xFF)
 
@@ -401,6 +399,8 @@ S_is_utf8_invariant_string_loc(const U8* const s, STRLEN 
len, const U8 ** ep)
                                       | ( ( (PTR2nat(x)                       \
                                            & PERL_WORD_BOUNDARY_MASK) >> 2))))
 
+#ifndef EBCDIC
+
     /* Do the word-at-a-time iff there is at least one usable full word.  That
      * means that after advancing to a word boundary, there still is at least a
      * full word left.  The number of bytes needed to advance is 'wordsize -

-- 
Perl5 Master Repository

Reply via email to