From 6ad3d225cec2692b410002582f5558652eea32c8 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 30 Jan 1998 08:54:19 +0000 Subject: [asperl] Created new branch from win32@396, added AS patch#1 p4raw-link: @396 on //depot/win32/perl: e7152ba2733b9227708ca768b222144415c13c66 p4raw-id: //depot/asperl@441 --- scope.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scope.h') diff --git a/scope.h b/scope.h index a65cb628a9..4648d00071 100644 --- a/scope.h +++ b/scope.h @@ -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) -- cgit v1.2.1