summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-02-03 22:01:03 -0700
committerKarl Williamson <public@khwilliamson.com>2012-02-09 10:13:57 -0700
commita3e1f3a6180fe54649735a678cb15de8aaacf5e9 (patch)
tree84ac04a68e651e7c81e3ead7ea1e9fc7cca31fa2 /sv.c
parent9d9177bec752277fb0bb090203f47d85c3aba878 (diff)
downloadperl-a3e1f3a6180fe54649735a678cb15de8aaacf5e9.tar.gz
regcomp.c: Use compile-time invlists
This creates three simple compile-time inversion lists from the data that has been generated in a previous commit, and uses two of them. Three PL_ variables are used to store them.
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 47e71ecadc..fe10362ab2 100644
--- a/sv.c
+++ b/sv.c
@@ -13414,6 +13414,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
PL_utf8_idcont = sv_dup_inc(proto_perl->Iutf8_idcont, param);
PL_utf8_xidcont = sv_dup_inc(proto_perl->Iutf8_xidcont, param);
PL_utf8_foldable = sv_dup_inc(proto_perl->Iutf8_foldable, param);
+ PL_ASCII = sv_dup_inc(proto_perl->IASCII, param);
+ PL_AboveLatin1 = sv_dup_inc(proto_perl->IAboveLatin1, param);
+ PL_Latin1 = sv_dup_inc(proto_perl->ILatin1, param);
if (proto_perl->Ipsig_pend) {