diff options
| author | Karl Williamson <khw@cpan.org> | 2018-07-14 13:05:52 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-07-14 17:41:02 -0600 |
| commit | 7258295b51ee7cac64553fcbcee5e51bd204fbbf (patch) | |
| tree | c1022227ea3be07a9a809f932d4a4dca3c1b08ed /utf8.c | |
| parent | 6b877bbd2c071b3e0659fab552a74dc2ff7e08fb (diff) | |
| download | perl-7258295b51ee7cac64553fcbcee5e51bd204fbbf.tar.gz | |
Make global two interpreter variables
These variables are constant, once initialized, through the life of a
program, so having them be per instance is a waste of time and space
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3367,7 +3367,7 @@ Perl__is_utf8_mark(pTHX_ const U8 *p) { PERL_ARGS_ASSERT__IS_UTF8_MARK; - return is_utf8_common(p, &PL_utf8_mark, "IsM", NULL); + return is_utf8_common(p, NULL, "IsM", PL_utf8_mark); } STATIC UV @@ -5829,6 +5829,7 @@ Perl_init_uniprops(pTHX) PL_utf8_tofold = _new_invlist_C_array(Case_Folding_invlist); PL_utf8_tosimplefold = _new_invlist_C_array(Simple_Case_Folding_invlist); PL_utf8_foldclosures = _new_invlist_C_array(_Perl_IVCF_invlist); + PL_utf8_mark = _new_invlist_C_array(PL_uni_prop_ptrs[PL_M]); } SV * |