From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 17 Mar 2001 20:32:01 +0000 (+0000)
Subject: Correct #if EBCDIC side typos.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=753838417b30f18133bff09e0b7fa58f5a0db60a;p=p5sagit%2Fp5-mst-13.2.git

Correct #if EBCDIC side typos.
Builds and passes many tests on OS390.

p4raw-id: //depot/perlio@9190
---

diff --git a/utf8.c b/utf8.c
index 71a76e3..7ca3cc7 100644
--- a/utf8.c
+++ b/utf8.c
@@ -309,7 +309,7 @@ Perl_utf8n_to_uvuni(pTHX_ U8* s, STRLEN curlen, STRLEN* retlen, U32 flags)
     }
 
 #ifdef EBCDIC
-    uv = NATIVE_TO_UVF(uv);
+    uv = NATIVE_TO_UTF(uv);
 #else
     if ((uv == 0xfe || uv == 0xff) &&
 	!(flags & UTF8_ALLOW_FE_FF)) {
diff --git a/utfebcdic.h b/utfebcdic.h
index efcd00d..0eef54b 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))