diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 01:42:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-06 01:42:15 +0000 |
| commit | 5b154c98be56f978a407aaee4189e852999c14ea (patch) | |
| tree | 65abdfd94120172f715083b606964d2b3f2dc6bf /utf8.h | |
| parent | 0fa8531495f1570026be8568451f2e2de726608f (diff) | |
| download | perl-5b154c98be56f978a407aaee4189e852999c14ea.tar.gz | |
Tweak #7153.
p4raw-id: //depot/perl@7154
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -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) |