diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-09-02 14:46:38 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-09-13 21:14:02 -0600 |
| commit | 45fdf108c5f4d5c719b8d2f7389c81e54795bad7 (patch) | |
| tree | 762c2b213f34c1467f50c28e5e1b2e7eec3375f9 /embed.h | |
| parent | 612ead590b8b5f05e4060738540192ece946c340 (diff) | |
| download | perl-45fdf108c5f4d5c719b8d2f7389c81e54795bad7.tar.gz | |
regexec.c: Use new macros instead of swashes
A previous commit has caused macros to be generated that will match
Unicode code points of interest to the \X algorithm. This patch uses
them. This speeds up modern Korean processing by 15%.
Together with recent previous commits, the throughput of modern Korean
under \X has more than doubled, and is now comparable to other
languages (which have increased themselved by 35%)
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -855,16 +855,9 @@ #define _is_utf8__perl_idstart(a) Perl__is_utf8__perl_idstart(aTHX_ a) #define av_reify(a) Perl_av_reify(aTHX_ a) #define current_re_engine() Perl_current_re_engine(aTHX) -#define is_utf8_X_L(a) Perl_is_utf8_X_L(aTHX_ a) #define is_utf8_X_LVT(a) Perl_is_utf8_X_LVT(aTHX_ a) -#define is_utf8_X_LV_LVT_V(a) Perl_is_utf8_X_LV_LVT_V(aTHX_ a) -#define is_utf8_X_RI(a) Perl_is_utf8_X_RI(aTHX_ a) -#define is_utf8_X_T(a) Perl_is_utf8_X_T(aTHX_ a) -#define is_utf8_X_V(a) Perl_is_utf8_X_V(aTHX_ a) #define is_utf8_X_extend(a) Perl_is_utf8_X_extend(aTHX_ a) -#define is_utf8_X_prepend(a) Perl_is_utf8_X_prepend(aTHX_ a) #define is_utf8_X_regular_begin(a) Perl_is_utf8_X_regular_begin(aTHX_ a) -#define is_utf8_X_special_begin(a) Perl_is_utf8_X_special_begin(aTHX_ a) #define op_clear(a) Perl_op_clear(aTHX_ a) #define qerror(a) Perl_qerror(aTHX_ a) #define reg_named_buff(a,b,c,d) Perl_reg_named_buff(aTHX_ a,b,c,d) |