From 7049214e3eea022e77794ed9b9d9038f93695ef9 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 28 Sep 2011 15:03:57 -0600 Subject: handy.h: Speed up isIDFIRST_utf8() This now takes advantage of the new table that mktables generates to find out if a character is a legal start character in Perl's definition. Previously, it had to be looked up in two tables. --- handy.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/handy.h b/handy.h index 352a1c73bd..2555736365 100644 --- a/handy.h +++ b/handy.h @@ -934,7 +934,7 @@ EXTCONST U32 PL_charclass[]; : (UTF8_IS_DOWNGRADEABLE_START(*(p))) \ ? isIDFIRST_L1(TWO_BYTE_UTF8_TO_UNI(*(p), \ *((p)+1)))\ - : (is_utf8_xidfirst(p) && is_utf8_alnum(p))) + : _is_utf8__perl_idstart(p)) #define isIDCONT_utf8(p) generic_utf8(isWORDCHAR, is_utf8_xidcont, p) #define isALPHA_utf8(p) generic_utf8(isALPHA, is_utf8_alpha, p) #define isSPACE_utf8(p) generic_utf8(isSPACE, is_utf8_space, p) -- cgit v1.2.1