From e80a0113c4a8036dfb22aec44d0a9feb65d36fed Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 25 Mar 2018 11:41:15 -0600 Subject: Move case change invlists from interpreter to global These are now constant through the life of the program, so don't need to be duplicated at each new thread instantiation. --- perlapi.h | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'perlapi.h') diff --git a/perlapi.h b/perlapi.h index f882f6b840..c24f8ea7bf 100644 --- a/perlapi.h +++ b/perlapi.h @@ -215,6 +215,16 @@ END_EXTERN_C #define PL_utf8_perl_idcont (*Perl_Gutf8_perl_idcont_ptr(NULL)) #undef PL_utf8_perl_idstart #define PL_utf8_perl_idstart (*Perl_Gutf8_perl_idstart_ptr(NULL)) +#undef PL_utf8_tofold +#define PL_utf8_tofold (*Perl_Gutf8_tofold_ptr(NULL)) +#undef PL_utf8_tolower +#define PL_utf8_tolower (*Perl_Gutf8_tolower_ptr(NULL)) +#undef PL_utf8_tosimplefold +#define PL_utf8_tosimplefold (*Perl_Gutf8_tosimplefold_ptr(NULL)) +#undef PL_utf8_totitle +#define PL_utf8_totitle (*Perl_Gutf8_totitle_ptr(NULL)) +#undef PL_utf8_toupper +#define PL_utf8_toupper (*Perl_Gutf8_toupper_ptr(NULL)) #undef PL_utf8_xidcont #define PL_utf8_xidcont (*Perl_Gutf8_xidcont_ptr(NULL)) #undef PL_utf8_xidstart -- cgit v1.2.1