From 9e7ded3f8151b7f66398bfd77fca0565ee90166a Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 20 Dec 2016 11:58:38 -0700 Subject: [PATCH] Create inversion list for Assigned code points This will be used in a future commit. --- embedvar.h | 1 + intrpvar.h | 1 + perl.c | 2 ++ 3 files changed, 4 insertions(+) diff --git a/embedvar.h b/embedvar.h index f1fa5ba..a33f213 100644 --- a/embedvar.h +++ b/embedvar.h @@ -42,6 +42,7 @@ #define PL_AboveLatin1 (vTHX->IAboveLatin1) #define PL_Argv (vTHX->IArgv) +#define PL_Assigned_invlist (vTHX->IAssigned_invlist) #define PL_Cmd (vTHX->ICmd) #define PL_DBcontrol (vTHX->IDBcontrol) #define PL_DBcv (vTHX->IDBcv) diff --git a/intrpvar.h b/intrpvar.h index a078be4..cd89ecd 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -628,6 +628,7 @@ PERLVAR(I, GCB_invlist, SV *) PERLVAR(I, LB_invlist, SV *) PERLVAR(I, SB_invlist, SV *) PERLVAR(I, WB_invlist, SV *) +PERLVAR(I, Assigned_invlist, SV *) PERLVAR(I, seen_deprecated_macro, HV *) PERLVAR(I, last_swash_hv, HV *) diff --git a/perl.c b/perl.c index 3a647f7..9ba4ae0 100644 --- a/perl.c +++ b/perl.c @@ -420,6 +420,7 @@ perl_construct(pTHXx) PL_SB_invlist = _new_invlist_C_array(_Perl_SB_invlist); PL_WB_invlist = _new_invlist_C_array(_Perl_WB_invlist); PL_LB_invlist = _new_invlist_C_array(_Perl_LB_invlist); + PL_Assigned_invlist = _new_invlist_C_array(Assigned_invlist); #ifdef USE_THREAD_SAFE_LOCALE PL_C_locale_obj = newlocale(LC_ALL_MASK, "C", NULL); #endif @@ -1127,6 +1128,7 @@ perl_destruct(pTHXx) PL_LB_invlist = NULL; PL_SB_invlist = NULL; PL_WB_invlist = NULL; + PL_Assigned_invlist = NULL; if (!specialWARN(PL_compiling.cop_warnings)) PerlMemShared_free(PL_compiling.cop_warnings); -- 1.8.3.1