diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 00:39:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 00:39:55 +0000 |
| commit | 0fa8531495f1570026be8568451f2e2de726608f (patch) | |
| tree | 0d1955b0ebef5db9c69800cca3a943eb220417b5 /utf8.h | |
| parent | 9b2db8e94a2dd349aad72259cdcdd425bf501466 (diff) | |
| download | perl-0fa8531495f1570026be8568451f2e2de726608f.tar.gz | |
Patch from Simon Cozens to avoid using utf8 routines in EBCDIC.
p4raw-id: //depot/perl@7153
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) |