diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-17 20:32:01 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-17 20:32:01 +0000 |
| commit | 753838417b30f18133bff09e0b7fa58f5a0db60a (patch) | |
| tree | 93df6509715626507a338293ccfc761840ad9f01 /utfebcdic.h | |
| parent | 57ce1777e628f108f670a828f77ce6475bb81e32 (diff) | |
| download | perl-753838417b30f18133bff09e0b7fa58f5a0db60a.tar.gz | |
Correct #if EBCDIC side typos.
Builds and passes many tests on OS390.
p4raw-id: //depot/perlio@9190
Diffstat (limited to 'utfebcdic.h')
| -rw-r--r-- | utfebcdic.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utfebcdic.h b/utfebcdic.h index efcd00db7e..0eef54b001 100644 --- a/utfebcdic.h +++ b/utfebcdic.h @@ -233,10 +233,10 @@ END_EXTERN_C * unnecessarily. */ -#define isIDFIRST_lazy_if(p,c) ((IN_BYTE || (!c || UTF8_INVARIANT(*p)) \ +#define isIDFIRST_lazy_if(p,c) ((IN_BYTE || (!c || UTF8_IS_INVARIANT(*p))) \ ? isIDFIRST(*(p)) \ : isIDFIRST_utf8((U8*)p)) -#define isALNUM_lazy_if(p,c) ((IN_BYTE || (!c || UTF8_INVARIANT(*p)) \ +#define isALNUM_lazy_if(p,c) ((IN_BYTE || (!c || UTF8_IS_INVARIANT(*p))) \ ? isALNUM(*(p)) \ : isALNUM_utf8((U8*)p)) @@ -280,7 +280,7 @@ END_EXTERN_C #define UTF_CONTINUATION_MASK ((U8)0x1f) #define UTF_ACCUMULATION_SHIFT 5 -#define UTF8_ACCUMULATE(old, new) (((old) << UTF_ACCUMULATION_SHIFT)|(NATIVE_TO_UTF(new) & UTFE_CONTINUATION_MASK)) +#define UTF8_ACCUMULATE(old, new) (((old) << UTF_ACCUMULATION_SHIFT)|(NATIVE_TO_UTF(new) & UTF_CONTINUATION_MASK)) /* UTF-EBCDIC encode a downgradeable value */ #define UTF8_EIGHT_BIT_HI(c) UTF_TO_NATIVE((((U8)(c))>>UTF_ACCUMULATION_SHIFT)|UTF_START_MARK(2)) |