X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=XSUB.h;h=509a1d6b0463c1c6985e12114c563cc1409837a7;hb=5bc28da93666e223bb56098f72517273bc8bcbf9;hp=241ac40e492f361c918ba5f39cd8b06b3575779a;hpb=fc0dc3b334ed07492841d4d27f3f4100c92588d2;p=p5sagit%2Fp5-mst-13.2.git

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