diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2005-02-02 21:26:14 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2005-02-02 21:26:14 +0000 |
| commit | 9b5c3821be1f2a9a84772171c8bbadbf9cfc4a53 (patch) | |
| tree | 4b5ecf8fab09757c501d691471658ab6d039283d /XSUB.h | |
| parent | 21c16052ffb70c4bff066e455c6d4bea74622e34 (diff) | |
| download | perl-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.h | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -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 |