diff options
| author | Karl Williamson <khw@cpan.org> | 2016-12-20 11:58:38 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-12-23 22:52:44 -0700 |
| commit | 9e7ded3f8151b7f66398bfd77fca0565ee90166a (patch) | |
| tree | 0d16b866a016f151004c15054a890e96a701cbc5 | |
| parent | c0382778e247f71b52d7ef6c2f87e20051ccae6b (diff) | |
| download | perl-9e7ded3f8151b7f66398bfd77fca0565ee90166a.tar.gz | |
Create inversion list for Assigned code points
This will be used in a future commit.
| -rw-r--r-- | embedvar.h | 1 | ||||
| -rw-r--r-- | intrpvar.h | 1 | ||||
| -rw-r--r-- | perl.c | 2 |
3 files changed, 4 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index f1fa5ba790..a33f213efc 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 a078be4a1f..cd89ecd395 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 *) @@ -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); |