Create inversion list for Assigned code points

This will be used in a future commit.

diff --git a/embedvar.h b/embedvar.h
index f1fa5ba..a33f213 100644 (file)
--- 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 (file)
--- 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 (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);