diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-12 21:00:37 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-12 21:00:37 +0000 |
| commit | 85ffbbb0b9ce8124eef68c3c6234c26ffa9aba18 (patch) | |
| tree | 1225fe18b70428d7da3e8776baeef0af8d041bd4 /gv.h | |
| parent | 63f10712f341adad800caf833beeb6f5def358fe (diff) | |
| download | perl-85ffbbb0b9ce8124eef68c3c6234c26ffa9aba18.tar.gz | |
Assert that PVGVs are never SvVALID() in the PVBM sense.
p4raw-id: //depot/perl@29536
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -46,6 +46,7 @@ struct gp { (*({ GV * const zzzz = (GV *) (gv); \ assert(isGV_with_GP(zzzz)); \ assert(SvTYPE(zzzz) == SVt_PVGV || SvTYPE(zzzz) >= SVt_PVLV); \ + assert(!SvVALID(zzzz)); \ &(GvXPVGV(zzzz)->xiv_u.xivu_namehek); \ })) # define GvNAME_get(gv) ({ assert(GvNAME_HEK(gv)); HEK_KEY(GvNAME_HEK(gv)); }) |