From a5c7cb08f7954af4accf63bfffaab1bd61f1dd68 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Sat, 12 Nov 2016 14:48:52 +0000 Subject: eliminate SVpbm_VALID flag This flag is set on an SV to indicate that it has PERL_MAGIC_bm (fast Boyer-Moore) magic attached. Instead just directly check whether it has such magic. This frees up the 0x40000000 bit for anything except AVs and HVs --- gv.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gv.h') diff --git a/gv.h b/gv.h index e3357bc4de..0b08b686f7 100644 --- a/gv.h +++ b/gv.h @@ -52,7 +52,7 @@ struct gp { (*({ GV * const _gvname_hek = (GV *) (gv); \ assert(isGV_with_GP(_gvname_hek)); \ assert(SvTYPE(_gvname_hek) == SVt_PVGV || SvTYPE(_gvname_hek) >= SVt_PVLV); \ - assert(!SvVALID(_gvname_hek)); \ + assert(!SvVALID((SV*)_gvname_hek)); \ &(GvXPVGV(_gvname_hek)->xiv_u.xivu_namehek); \ })) # define GvNAME_get(gv) ({ assert(GvNAME_HEK(gv)); (char *)HEK_KEY(GvNAME_HEK(gv)); }) -- cgit v1.2.1