From f1bcae08d82e5348df8b5dc0c44313ea38deb12b Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 31 Mar 2018 11:18:38 -0600 Subject: Use charnames inversion lists This commit makes the inversion lists for parsing character name global instead of interpreter level, so can be initialized once per process, and no copies are created upon new thread instantiation. More importantly, this is another instance where utf8_heavy.pl no longer needs to be loaded, and the definition files read from disk. --- perlapi.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perlapi.h') diff --git a/perlapi.h b/perlapi.h index c24f8ea7bf..6b90055773 100644 --- a/perlapi.h +++ b/perlapi.h @@ -205,6 +205,10 @@ END_EXTERN_C #define PL_timesbase (*Perl_Gtimesbase_ptr(NULL)) #undef PL_use_safe_putenv #define PL_use_safe_putenv (*Perl_Guse_safe_putenv_ptr(NULL)) +#undef PL_utf8_charname_begin +#define PL_utf8_charname_begin (*Perl_Gutf8_charname_begin_ptr(NULL)) +#undef PL_utf8_charname_continue +#define PL_utf8_charname_continue (*Perl_Gutf8_charname_continue_ptr(NULL)) #undef PL_utf8_foldable #define PL_utf8_foldable (*Perl_Gutf8_foldable_ptr(NULL)) #undef PL_utf8_idcont -- cgit v1.2.1