From 3f515a2edaad4fe95e69a30dcc8823e4d7353d43 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 6 Mar 2018 08:18:26 -0700 Subject: [PATCH] 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. --- inline.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/inline.h b/inline.h index 549b798..8c20e75 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 - -- 1.8.3.1