diff options
| author | Karl Williamson <khw@cpan.org> | 2018-03-13 21:52:15 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-03-14 09:35:35 -0600 |
| commit | 744ebf52f3e4ca5e41d9ce8bc68e10cae14592a0 (patch) | |
| tree | 2a41d4ff70b04876f40f0e5b442f470465b5c476 /intrpvar.h | |
| parent | 32a62865ef662fce2b2250a7e0eca15861e7fe20 (diff) | |
| download | perl-744ebf52f3e4ca5e41d9ce8bc68e10cae14592a0.tar.gz | |
Make Unicode data structures global
These structures are read-only, use const C strings, and are truly
global, so no need to have them be interpreter level. This saves
duplicating and freeing them as threads come and go.
In doing this, I noticed that not every one was properly being
copied/deallocated, so this fixes some potential unreported bugs, and
leaks.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/intrpvar.h b/intrpvar.h index 466785b882..33d952682a 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -639,14 +639,8 @@ PERLVARI(I, underlying_numeric_obj, locale_t, NULL) #endif /* !USE_LOCALE_NUMERIC */ /* Unicode inversion lists */ -PERLVAR(I, Latin1, SV *) -PERLVAR(I, UpperLatin1, SV *) /* Code points 128 - 255 */ -PERLVAR(I, AboveLatin1, SV *) PERLVAR(I, InBitmap, SV *) -PERLVAR(I, NonL1NonFinalFold, SV *) -PERLVAR(I, HasMultiCharFold, SV *) - /* utf8 character class swashes */ PERLVAR(I, utf8_mark, SV *) PERLVAR(I, utf8_toupper, SV *) @@ -657,13 +651,6 @@ PERLVAR(I, utf8_charname_begin, SV *) PERLVAR(I, utf8_charname_continue, SV *) PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *) -PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *) -PERLVAR(I, GCB_invlist, SV *) -PERLVAR(I, LB_invlist, SV *) -PERLVAR(I, SB_invlist, SV *) -PERLVAR(I, SCX_invlist, SV *) -PERLVAR(I, WB_invlist, SV *) -PERLVAR(I, Assigned_invlist, SV *) PERLVAR(I, seen_deprecated_macro, HV *) PERLVAR(I, last_swash_hv, HV *) @@ -733,13 +720,6 @@ PERLVARI(I, known_layers, PerlIO_list_t *, NULL) PERLVARI(I, def_layerlist, PerlIO_list_t *, NULL) #endif -PERLVAR(I, utf8_idstart, SV *) -PERLVAR(I, utf8_idcont, SV *) -PERLVAR(I, utf8_xidstart, SV *) -PERLVAR(I, utf8_perl_idstart, SV *) -PERLVAR(I, utf8_perl_idcont, SV *) -PERLVAR(I, utf8_xidcont, SV *) - PERLVAR(I, sort_RealCmp, SVCOMPARE_t) PERLVARI(I, checkav_save, AV *, NULL) /* save CHECK{}s when compiling */ @@ -783,10 +763,6 @@ PERLVAR(I, blockhooks, AV *) * matching */ PERLVARI(I, utf8_foldclosures, HV *, NULL) -/* List of characters that participate in folds (except marks, etc in - * multi-char folds) */ -PERLVARI(I, utf8_foldable, SV *, NULL) - PERLVAR(I, custom_ops, HV *) /* custom op registrations */ PERLVAR(I, Xpv, XPV *) /* (unused) held temporary value */ |