projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9da458f
)
s/dXS_TARGET/dXSTARG/ in change#4044 (to match dARGS vs dXSARGS
author
Gurusamy Sarathy
<gsar@cpan.org>
Fri, 10 Sep 1999 19:22:14 +0000
(19:22 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Fri, 10 Sep 1999 19:22:14 +0000
(19:22 +0000)
etc.)
p4raw-link: @4044 on //depot/cfgperl:
d30110745a7a78b4c83e13a8406bad8c3e3294bf
p4raw-id: //depot/perl@4125
XSUB.h
patch
|
blob
|
history
pp.h
patch
|
blob
|
history
diff --git
a/XSUB.h
b/XSUB.h
index
241ac40
..
509a1d6
100644
(file)
--- 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
(file)
--- 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