summaryrefslogtreecommitdiff
path: root/XSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-10-29 16:45:26 -0500
committerGurusamy Sarathy <gsar@cpan.org>1997-11-26 01:36:39 +0000
commit0e4ced382cb959db083cda30b8dbdae68933842a (patch)
treecebaae20a96c0a02dffc215bcb995ff7f8fe7ae0 /XSUB.h
parente41fc98bd7f2023e39e515f98825ef0e1db2c6e4 (diff)
downloadperl-0e4ced382cb959db083cda30b8dbdae68933842a.tar.gz
[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
Diffstat (limited to 'XSUB.h')
-rw-r--r--XSUB.h6
1 files changed, 5 insertions, 1 deletions
diff --git a/XSUB.h b/XSUB.h
index c7c3f6d80e..054b4cc7f7 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. */