This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Create inversion list for Assigned code points
authorKarl Williamson <khw@cpan.org>
Tue, 20 Dec 2016 18:58:38 +0000 (11:58 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 24 Dec 2016 05:52:44 +0000 (22:52 -0700)
This will be used in a future commit.

embedvar.h
intrpvar.h
perl.c

index f1fa5ba..a33f213 100644 (file)
@@ -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)
index a078be4..cd89ecd 100644 (file)
@@ -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 (file)
--- 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);