From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 19 Apr 2005 11:20:37 +0000 (+0000)
Subject: Simplify PERL_DEBUG_PAD_ZERO so it continues to expand to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5c57919c9a1f33f50e0270008702e16d2ee3e0b;p=p5sagit%2Fp5-mst-13.2.git

Simplify PERL_DEBUG_PAD_ZERO so it continues to expand to
valid C code

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

diff --git a/perl.h b/perl.h
index 9ad0432..517a114 100644
--- a/perl.h
+++ b/perl.h
@@ -3611,7 +3611,9 @@ struct perl_debug_pad {
 };
 
 #define PERL_DEBUG_PAD(i)	&(PL_debug_pad.pad[i])
-#define PERL_DEBUG_PAD_ZERO(i)	(SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR_set(PERL_DEBUG_PAD(i), 0), PERL_DEBUG_PAD(i))
+#define PERL_DEBUG_PAD_ZERO(i)	(SvPVX(PERL_DEBUG_PAD(i))[0] = 0, \
+	(((XPV*) SvANY(PERL_DEBUG_PAD(i)))->xpv_cur = 0), \
+	PERL_DEBUG_PAD(i))
 
 /* Enable variables which are pointers to functions */
 typedef void (CPERLscope(*peep_t))(pTHX_ OP* o);