XSUB.h refinement [PATCH]

To: perl5-porters@perl.org
Cc: perl-xs@perl.org
Message-ID: <MLIST_Pine.GSO.4.02.9812171733330.589-100000@eq1062.wks.na.deuba.com>

p4raw-id: //depot/cfgperl@2519

diff --git a/XSUB.h b/XSUB.h
index dbe0c39..32e0810 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -29,10 +29,13 @@
 #define XSINTERFACE_FUNC_SET(cv,f)     \
                CvXSUBANY(cv).any_dptr = (void (*) _((void*)))(f)
 
-#define XSRETURN(off)                                  \
-    STMT_START {                                       \
-       PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
-       return;                                         \
+#define XSFLUSHARGS \
+       PL_stack_sp = PL_stack_base + ax + ((off) - 1)
+
+#define XSRETURN(off)                          \
+    STMT_START {                               \
+       XSFLUSHARGS;                            \
+       return;                                 \
     } STMT_END
 
 /* Simple macros to put new mortal values onto the stack.   */