summaryrefslogtreecommitdiff
path: root/XSUB.h
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2005-02-02 21:26:14 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2005-02-02 21:26:14 +0000
commit9b5c3821be1f2a9a84772171c8bbadbf9cfc4a53 (patch)
tree4b5ecf8fab09757c501d691471658ab6d039283d /XSUB.h
parent21c16052ffb70c4bff066e455c6d4bea74622e34 (diff)
downloadperl-9b5c3821be1f2a9a84772171c8bbadbf9cfc4a53.tar.gz
Attempt to fix problems with new exception handling macros.
p4raw-id: //depot/perl@23925
Diffstat (limited to 'XSUB.h')
-rw-r--r--XSUB.h12
1 files changed, 7 insertions, 5 deletions
diff --git a/XSUB.h b/XSUB.h
index 6751572c8a..c74d6f6385 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -272,11 +272,13 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">.
# define XS_VERSION_BOOTCHECK
#endif
-#define dXCPT dJMPENV; int rEtV = 0
-#define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0)
-#define XCPT_TRY_END JMPENV_POP;
-#define XCPT_CATCH if (rEtV != 0)
-#define XCPT_RETHROW JMPENV_JUMP(rEtV)
+#ifdef NO_XSLOCKS
+# define dXCPT dJMPENV; int rEtV = 0
+# define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0)
+# define XCPT_TRY_END JMPENV_POP;
+# define XCPT_CATCH if (rEtV != 0)
+# define XCPT_RETHROW JMPENV_JUMP(rEtV)
+#endif
/*
The DBM_setFilter & DBM_ckFilter macros are only used by