From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 29 Oct 1997 21:45:26 +0000 (-0500)
Subject: [win32] Another trivial patch:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e4ced382cb959db083cda30b8dbdae68933842a;p=p5sagit%2Fp5-mst-13.2.git

[win32] Another trivial patch:
    Message-Id: <199710300245.VAA04244@aatma.engin.umich.edu>
    Subject: [PATCH] Re: Why doesn't XSRETURN have STMT_START/STMT_END brackets?

p4raw-id: //depot/win32/perl@310
---

diff --git a/XSUB.h b/XSUB.h
index c7c3f6d..054b4cc 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -15,7 +15,11 @@
 
 #define dXSI32 I32 ix = XSANY.any_i32
 
-#define XSRETURN(off) stack_sp = stack_base + ax + ((off) - 1); return
+#define XSRETURN(off)					\
+    STMT_START {					\
+	stack_sp = stack_base + ax + ((off) - 1);	\
+	return;						\
+    } STMT_END
 
 /* Simple macros to put new mortal values onto the stack.   */
 /* Typically used to return values from XS functions.       */