From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 13 Dec 2003 16:33:46 +0000 (+0000)
Subject: Make the XSRETURN macro evaluate its argument only once.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a02b22391697d92e42a9d962357c883f5be7c0ef;p=p5sagit%2Fp5-mst-13.2.git

Make the XSRETURN macro evaluate its argument only once.

p4raw-id: //depot/perl@21891
---

diff --git a/XSUB.h b/XSUB.h
index ce76a7b..4a1079f 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -193,7 +193,8 @@ C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
 
 #define XSRETURN(off)					\
     STMT_START {					\
-	PL_stack_sp = PL_stack_base + ax + ((off) - 1);	\
+	IV tmpXSoff = (off);				\
+	PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1);	\
 	return;						\
     } STMT_END