optimize XSUBs to use targets if the -nooptimize xsubpp option is

[perl5.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index e9b6dc3..53ff98d 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -17,6 +17,9 @@
 #define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
                             ? PAD_SV(PL_op->op_targ) : sv_newmortal())
 
+/* Should be used before final PUSHi etc. if not in PPCODE section. */
+#define XSprePUSH (sp = PL_stack_base + ax - 1)
+
 #define XSANY CvXSUBANY(cv)
 
 #define dXSI32 I32 ix = XSANY.any_i32