This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PVCVs no longer allocate memory for the SvNVX slot, so assert that
authorNicholas Clark <nick@ccl4.org>
Mon, 6 Nov 2006 08:13:09 +0000 (08:13 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 6 Nov 2006 08:13:09 +0000 (08:13 +0000)
no-one is trying to access it.

p4raw-id: //depot/perl@29206

sv.h

diff --git a/sv.h b/sv.h
index ab09bba..744bb39 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1170,6 +1170,7 @@ the scalar's value cannot change unless written to.
            assert(SvTYPE(_svi) == SVt_NV || SvTYPE(_svi) >= SVt_PVNV); \
            assert(SvTYPE(_svi) != SVt_PVAV);                           \
            assert(SvTYPE(_svi) != SVt_PVHV);                           \
+           assert(SvTYPE(_svi) != SVt_PVCV);                           \
            assert(SvTYPE(_svi) != SVt_PVFM);                           \
            assert(!isGV_with_GP(_svi));                                \
           &(((XPVNV*) SvANY(_svi))->xnv_u.xnv_nv);                     \