From a02b22391697d92e42a9d962357c883f5be7c0ef Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 13 Dec 2003 16:33:46 +0000
Subject: [PATCH] Make the XSRETURN macro evaluate its argument only once.

p4raw-id: //depot/perl@21891
---
 XSUB.h | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
 
-- 
2.7.4