diff options
| author | David Mitchell <davem@iabyn.com> | 2016-11-12 14:48:52 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-11-12 16:15:09 +0000 |
| commit | a5c7cb08f7954af4accf63bfffaab1bd61f1dd68 (patch) | |
| tree | 2202d596d03070380f8708b9966805c814a59168 /gv.h | |
| parent | b4204fb6f01f49bdf8ebb6d68e0f713a505f069a (diff) | |
| download | perl-a5c7cb08f7954af4accf63bfffaab1bd61f1dd68.tar.gz | |
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
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); }) |