From: Joshua Pritikin <joshua.pritikin@db.com>
Date: Fri, 18 Dec 1998 03:58:44 +0000 (+0200)
Subject: XSUB.h refinement [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c55a1c17f6da0fa17d0f45b8abcc15523c8693a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.   */