Change 34613 by [EMAIL PROTECTED] on 2008/10/27 22:39:45
Correct SvVALID() and SvTAIL() - they are actually const.
Affected files ...
... //depot/perl/sv.h#354 edit
Differences ...
==== //depot/perl/sv.h#354 (text) ====
Index: perl/sv.h
--- perl/sv.h#353~34605~ 2008-10-27 13:25:46.000000000 -0700
+++ perl/sv.h 2008-10-27 15:39:45.000000000 -0700
@@ -965,7 +965,7 @@
#define SvEVALED_off(sv) (SvFLAGS(sv) &= ~SVrepl_EVAL)
#if defined (DEBUGGING) && defined(__GNUC__) &&
!defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
-# define SvVALID(sv) ({ SV *const _svvalid = MUTABLE_SV(sv); \
+# define SvVALID(sv) ({ const SV *const _svvalid = (const SV*)(sv); \
if (SvFLAGS(_svvalid) & SVpbm_VALID) \
assert(!isGV_with_GP(_svvalid)); \
(SvFLAGS(_svvalid) & SVpbm_VALID); \
@@ -979,7 +979,7 @@
(SvFLAGS(_svvalid) &= ~SVpbm_VALID); \
})
-# define SvTAIL(sv) ({ SV *const _svtail = MUTABLE_SV(sv); \
+# define SvTAIL(sv) ({ const SV *const _svtail = (const SV *)(sv); \
assert(SvTYPE(_svtail) != SVt_PVAV);
\
assert(SvTYPE(_svtail) != SVt_PVHV);
\
(SvFLAGS(sv) & (SVpbm_TAIL|SVpbm_VALID)) \
End of Patch.
