summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-09-10 19:22:14 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-09-10 19:22:14 +0000
commit8a7fc0dc3015c8254ce4e866be71508e3379d45d (patch)
tree0808e1620b6ecdcd9f64c6db1b8f70966efe542e
parent9da458fc4b954e4ad25396ba0b880cdc7e0e3997 (diff)
downloadperl-8a7fc0dc3015c8254ce4e866be71508e3379d45d.tar.gz
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
-rw-r--r--XSUB.h3
-rw-r--r--pp.h2
2 files changed, 3 insertions, 2 deletions
diff --git a/XSUB.h b/XSUB.h
index 241ac40e49..509a1d6b04 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 11dd9d0e82..ec701f3054 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