Change #25571 has caused the smokes to be broken when building with
-DPERL_DEBUG_COW. The following patch fixes the builds.
Steve Peters
[EMAIL PROTECTED]
--- sv.h.old2005-09-22 10:02:52.0 -0500
+++ sv.h2005-09-23 13:05:24.0 -0500
@@ -887,11 +887,6 @@
# define SvLEN(sv) ((XPV*) SvANY(sv))-xpv_len
# define SvEND(sv) ((sv)-sv_u.svu_pv + ((XPV*)SvANY(sv))-xpv_cur)
-/* Given that these two are new, there can't be any existing code using them
- * as LVALUEs */
-#define SvPVX_mutable(sv) (0 + (sv)-sv_u.svu_pv)
-#define SvPVX_const(sv)((const char*)(0 + (sv)-sv_u.svu_pv))
-
# ifdef DEBUGGING
#define SvMAGIC(sv)(*(assert(SvTYPE(sv) = SVt_PVMG), ((XPVMG*)
SvANY(sv))-xmg_magic))
#define SvSTASH(sv)(*(assert(SvTYPE(sv) = SVt_PVMG), ((XPVMG*)
SvANY(sv))-xmg_stash))
@@ -901,6 +896,11 @@
# endif
#endif
+/* Given that these two are new, there can't be any existing code using them
+ * * as LVALUEs */
+#define SvPVX_mutable(sv) (0 + (sv)-sv_u.svu_pv)
+#define SvPVX_const(sv) ((const char*)(0 + (sv)-sv_u.svu_pv))
+
#define SvIVXx(sv) SvIVX(sv)
#define SvUVXx(sv) SvUVX(sv)
#define SvNVXx(sv) SvNVX(sv)