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 (file)
--- 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)