From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 6 Oct 2000 00:39:55 +0000 (+0000)
Subject: Patch from Simon Cozens to avoid using utf8 routines in EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fa8531495f1570026be8568451f2e2de726608f;p=p5sagit%2Fp5-mst-13.2.git

Patch from Simon Cozens to avoid using utf8 routines in EBCDIC.

p4raw-id: //depot/perl@7153
---

diff --git a/utf8.h b/utf8.h
index c37a995..4f1bdcd 100644
--- a/utf8.h
+++ b/utf8.h
@@ -41,10 +41,10 @@ END_EXTERN_C
  * (that is, the two high bits are set).  Otherwise we risk loading in the
  * heavy-duty SWASHINIT and SWASHGET routines unnecessarily.
  */
-#define isIDFIRST_lazy_if(p,c) ((!c || (*((U8*)p) < 0xc0)) \
+#define isIDFIRST_lazy_if(p,c) ((IN_BYTE || defined(EBCDIC) || (!c || (*((U8*)p) < 0xc0))) \
 				? isIDFIRST(*(p)) \
 				: isIDFIRST_utf8((U8*)p))
-#define isALNUM_lazy_if(p,c)   ((!c || (*((U8*)p) < 0xc0)) \
+#define isALNUM_lazy_if(p,c)   ((IN_BYTE || defined(EBCDIC) || (!c || (*((U8*)p) < 0xc0))) \
 				? isALNUM(*(p)) \
 				: isALNUM_utf8((U8*)p))
 #define isIDFIRST_lazy(p)	isIDFIRST_lazy_if(p,1)