diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:52:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-19 04:52:18 +0000 |
| commit | 3028581bb6e49415e90ca9e7935ef77e075f56d6 (patch) | |
| tree | 3148ee21a20fd6a2f6d71d3109fc2ae066463314 /scope.h | |
| parent | 377729033bd4c3e2f6c0ac6b0d2bde9a83c5da6d (diff) | |
| download | perl-3028581bb6e49415e90ca9e7935ef77e075f56d6.tar.gz | |
[win32] foo() -> PerlGroup_foo() patch from ActiveState
p4raw-id: //depot/win32/perl@433
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -106,7 +106,7 @@ typedef struct jmpenv JMPENV; STMT_START { \ cur_env.je_prev = top_env; \ OP_REG_TO_MEM; \ - cur_env.je_ret = Sigsetjmp(cur_env.je_buf, 1); \ + cur_env.je_ret = PerlProc_setjmp(cur_env.je_buf, 1); \ OP_MEM_TO_REG; \ top_env = &cur_env; \ cur_env.je_mustcatch = FALSE; \ @@ -118,11 +118,11 @@ typedef struct jmpenv JMPENV; STMT_START { \ OP_REG_TO_MEM; \ if (top_env->je_prev) \ - Siglongjmp(top_env->je_buf, (v)); \ + PerlProc_longjmp(top_env->je_buf, (v)); \ if ((v) == 2) \ - exit(STATUS_NATIVE_EXPORT); \ + PerlProc_exit(STATUS_NATIVE_EXPORT); \ PerlIO_printf(PerlIO_stderr(), "panic: top_env\n"); \ - exit(1); \ + PerlProc_exit(1); \ } STMT_END #define CATCH_GET (top_env->je_mustcatch) |