diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-10 19:22:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-10 19:22:14 +0000 |
| commit | 8a7fc0dc3015c8254ce4e866be71508e3379d45d (patch) | |
| tree | 0808e1620b6ecdcd9f64c6db1b8f70966efe542e /XSUB.h | |
| parent | 9da458fc4b954e4ad25396ba0b880cdc7e0e3997 (diff) | |
| download | perl-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
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 |