develooper Front page | perl.perl5.changes | Postings from March 2018

[perl.git] branch blead updated. v5.27.9-117-g3f515a2eda

From:
Karl Williamson
Date:
March 6, 2018 15:29
Subject:
[perl.git] branch blead updated. v5.27.9-117-g3f515a2eda
Message ID:
E1etEWr-0002Or-Lr@git.dc.perl.space
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 <khw@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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About