From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 6 Oct 2000 01:42:15 +0000 (+0000)
Subject: Tweak #7153.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b154c98be56f978a407aaee4189e852999c14ea;p=p5sagit%2Fp5-mst-13.2.git

Tweak #7153.

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

diff --git a/utf8.h b/utf8.h
index 4f1bdcd..32173ea 100644
--- a/utf8.h
+++ b/utf8.h
@@ -41,11 +41,16 @@ 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) ((IN_BYTE || defined(EBCDIC) || (!c || (*((U8*)p) < 0xc0))) \
+#ifdef EBCDIC
+#define isIDFIRST_lazy_if(p,c) isIDFIRST(*(p))
+#define isALNUM_lazy_if(p,c)   isALNUM(*(p))
+#else
+#define isIDFIRST_lazy_if(p,c) ((IN_BYTE || (!c || (*((U8*)p) < 0xc0))) \
 				? isIDFIRST(*(p)) \
 				: isIDFIRST_utf8((U8*)p))
-#define isALNUM_lazy_if(p,c)   ((IN_BYTE || defined(EBCDIC) || (!c || (*((U8*)p) < 0xc0))) \
+#define isALNUM_lazy_if(p,c)   ((IN_BYTE || (!c || (*((U8*)p) < 0xc0))) \
 				? isALNUM(*(p)) \
 				: isALNUM_utf8((U8*)p))
+#endif
 #define isIDFIRST_lazy(p)	isIDFIRST_lazy_if(p,1)
 #define isALNUM_lazy(p)		isALNUM_lazy_if(p,1)