summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-03-31 11:18:38 -0600
committerKarl Williamson <khw@cpan.org>2018-03-31 15:36:45 -0600
commitf1bcae08d82e5348df8b5dc0c44313ea38deb12b (patch)
treef8c12cfd58ff90426563d05ef2688442b6e58cdf /embed.fnc
parent9c4165e33442f4b2fbc036d677b5a9196a5375ee (diff)
downloadperl-f1bcae08d82e5348df8b5dc0c44313ea38deb12b.tar.gz
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.
Diffstat (limited to 'embed.fnc')
-rw-r--r--embed.fnc2
1 files changed, 1 insertions, 1 deletions
diff --git a/embed.fnc b/embed.fnc
index 095fe3e1f9..d2f52d4e8f 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1738,7 +1738,7 @@ EXp |SV* |_core_swash_init|NN const char* pkg|NN const char* name \
|NN SV* listsv|I32 minbits|I32 none \
|NULLOK SV* invlist|NULLOK U8* const flags_p
#endif
-#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_UTF8_C)
EiMRn |UV* |invlist_array |NN SV* const invlist
EiMRn |bool* |get_invlist_offset_addr|NN SV* invlist
EiMRn |UV |_invlist_len |NN SV* const invlist