diff options
-rw-r--r-- | XSUB.h | 3 | ||||
-rw-r--r-- | pp.h | 2 |
2 files changed, 3 insertions, 2 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 @@ -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 |