Change 34133 by [EMAIL PROTECTED] on 2008/07/12 07:40:33
PVFMs don't need to access the IVX any more. (as of change 32836, which
re-implemented SvOOK() to avoid using it)
Affected files ...
... //depot/perl/dump.c#309 edit
... //depot/perl/ext/Devel/Peek/t/Peek.t#45 edit
... //depot/perl/sv.h#349 edit
Differences ...
==== //depot/perl/dump.c#309 (text) ====
Index: perl/dump.c
--- perl/dump.c#308~34127~ 2008-07-11 11:37:27.000000000 -0700
+++ perl/dump.c 2008-07-12 00:40:33.000000000 -0700
@@ -1563,7 +1563,7 @@
return;
}
if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV
- && type != SVt_PVCV && !isGV_with_GP(sv))
+ && type != SVt_PVCV && !isGV_with_GP(sv) && type != SVt_PVFM)
|| (type == SVt_IV && !SvROK(sv))) {
if (SvIsUV(sv)
#ifdef PERL_OLD_COPY_ON_WRITE
==== //depot/perl/ext/Devel/Peek/t/Peek.t#45 (text) ====
Index: perl/ext/Devel/Peek/t/Peek.t
--- perl/ext/Devel/Peek/t/Peek.t#44~34132~ 2008-07-12 00:12:37.000000000
-0700
+++ perl/ext/Devel/Peek/t/Peek.t 2008-07-12 00:40:33.000000000 -0700
@@ -644,7 +644,7 @@
SV = PVFM\\($ADDR\\) at $ADDR
REFCNT = 2
FLAGS = \\(\\)
- IV = 0
+ IV = 0 # $] < 5.009
NV = 0 # $] < 5.009
PV = 0 # $] >= 5.011
COMP_STASH = 0x0
==== //depot/perl/sv.h#349 (text) ====
Index: perl/sv.h
--- perl/sv.h#348~34038~ 2008-06-09 11:18:57.000000000 -0700
+++ perl/sv.h 2008-07-12 00:40:33.000000000 -0700
@@ -1094,6 +1094,7 @@
assert(SvTYPE(_svivx) != SVt_PVAV); \
assert(SvTYPE(_svivx) != SVt_PVHV); \
assert(SvTYPE(_svivx) != SVt_PVCV); \
+ assert(SvTYPE(_svivx) != SVt_PVFM); \
assert(!isGV_with_GP(_svivx)); \
&(((XPVIV*) SvANY(_svivx))->xiv_iv); \
}))
@@ -1103,6 +1104,7 @@
assert(SvTYPE(_svuvx) != SVt_PVAV); \
assert(SvTYPE(_svuvx) != SVt_PVHV); \
assert(SvTYPE(_svuvx) != SVt_PVCV); \
+ assert(SvTYPE(_svuvx) != SVt_PVFM); \
assert(!isGV_with_GP(_svuvx)); \
&(((XPVUV*) SvANY(_svuvx))->xuv_uv); \
}))
End of Patch.
