diff options
author | David Mitchell <davem@iabyn.com> | 2016-11-12 13:19:58 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-11-12 16:15:09 +0000 |
commit | b4204fb6f01f49bdf8ebb6d68e0f713a505f069a (patch) | |
tree | c54d4db80ac36e6f9d649fc74784848dbac8399d /util.c | |
parent | e08d24ff56cda24d8146e29d00376eb23eedbd7e (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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)); } |