From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 10 Sep 1999 19:22:14 +0000 (+0000)
Subject: s/dXS_TARGET/dXSTARG/ in change#4044 (to match dARGS vs dXSARGS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a7fc0dc3015c8254ce4e866be71508e3379d45d;p=p5sagit%2Fp5-mst-13.2.git

s/dXS_TARGET/dXSTARG/ in change#4044 (to match dARGS vs dXSARGS
etc.)

p4raw-link: @4044 on //depot/cfgperl: d30110745a7a78b4c83e13a8406bad8c3e3294bf

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

diff --git a/XSUB.h b/XSUB.h
index 241ac40..509a1d6 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -11,6 +11,9 @@
 	I32 ax = mark - PL_stack_base + 1;	\
 	I32 items = sp - mark
 
+#define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
+			     ? PAD_SV(PL_op->op_targ) : sv_newmortal())
+
 #define XSANY CvXSUBANY(cv)
 
 #define dXSI32 I32 ix = XSANY.any_i32
diff --git a/pp.h b/pp.h
index 11dd9d0..ec701f3 100644
--- a/pp.h
+++ b/pp.h
@@ -49,8 +49,6 @@
 
 #define dTARG SV *targ
 
-#define dXS_TARGET SV * targ = (PL_op->op_private & OPpENTERSUB_HASTARG ? PAD_SV(PL_op->op_targ) : sv_newmortal())
-
 #define NORMAL PL_op->op_next
 #define DIE return Perl_die