summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-11-12 13:19:58 +0000
committerDavid Mitchell <davem@iabyn.com>2016-11-12 16:15:09 +0000
commitb4204fb6f01f49bdf8ebb6d68e0f713a505f069a (patch)
treec54d4db80ac36e6f9d649fc74784848dbac8399d /util.c
parente08d24ff56cda24d8146e29d00376eb23eedbd7e (diff)
downloadperl-b4204fb6f01f49bdf8ebb6d68e0f713a505f069a.tar.gz
eliminate SVpbm_TAIL/SvTAIL_on()/SvTAIL_off()
(but keep SvTAIL()) This flag is only set on SVs that have Boyer-Moore magic attached. Such SVs already re-purpose the unused IVX slot of that SV to store BmUSEFUL. This commit repurposes the unused NVX slot to store this boolean value instead. Now that flag bit (0x80000000) is only used with AVs, HVs, RVs and scalar SVs with IOK.
Diffstat (limited to 'util.c')
-rw-r--r--util.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/util.c b/util.c
index 409d3ec48f..e459a0c5da 100644
--- a/util.c
+++ b/util.c
@@ -780,8 +780,7 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
}
}
BmUSEFUL(sv) = 100; /* Initial value */
- if (flags & FBMcf_TAIL)
- SvTAIL_on(sv);
+ ((XPVNV*)SvANY(sv))->xnv_u.xnv_bm_tail = cBOOL(flags & FBMcf_TAIL);
DEBUG_r(PerlIO_printf(Perl_debug_log, "rarest char %c at %"UVuf"\n",
s[rarest], (UV)rarest));
}