From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 09:09:28 +0000 (+0000)
Subject: Don't test the core XS code yet with PERL_DEBUG_COW > 1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c0e1089ae3d29de8c9817373e1b7f36eaf9a9cd8;p=p5sagit%2Fp5-mst-13.2.git

Don't test the core XS code yet with PERL_DEBUG_COW > 1

p4raw-id: //depot/perl@24751
---

diff --git a/sv.h b/sv.h
index 72c3cef..6c79c19 100644
--- a/sv.h
+++ b/sv.h
@@ -873,7 +873,8 @@ in gv.h: */
 #define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
 #define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
 #define SvNVX(sv) (0 + ((XPVNV*) SvANY(sv))->xnv_nv)
-#if PERL_DEBUG_COW > 1
+/* Don't test the core XS code yet.  */
+#if defined (PERL_CORE) && PERL_DEBUG_COW > 1
 #define SvPVX(sv) (0 + (assert(!SvREADONLY(sv)), (sv)->sv_u.svu_pv))
 #else
 #define SvPVX(sv) SvPVX_mutable(sv)