diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-15 08:51:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-15 08:51:54 +0000 |
| commit | 6224f72bf639f0ca7f774fe2738f2408b3e430ac (patch) | |
| tree | d09466217844d04a8289a2d2d15377ce38987426 /cc_runtime.h | |
| parent | 1163b5c41f1e1e2856ca82fef1598bfbb6c54d72 (diff) | |
| download | perl-6224f72bf639f0ca7f774fe2738f2408b3e430ac.tar.gz | |
back out previous change (it breaks PERL_OBJECT)
p4raw-id: //depot/perl@1136
Diffstat (limited to 'cc_runtime.h')
| -rw-r--r-- | cc_runtime.h | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/cc_runtime.h b/cc_runtime.h index 7d28ff5bb9..fe830c0bde 100644 --- a/cc_runtime.h +++ b/cc_runtime.h @@ -38,22 +38,22 @@ /* Anyone using eval "" deserves this mess */ #define PP_EVAL(ppaddr, nxt) do { \ dJMPENV; \ - int jmpstat; \ + int ret; \ PUTBACK; \ - JMPENV_PUSH(jmpstat); \ - switch (jmpstat) { \ - case JMP_NORMAL: \ + JMPENV_PUSH(ret); \ + switch (ret) { \ + case 0: \ op = ppaddr(ARGS); \ retstack[retstack_ix - 1] = Nullop; \ if (op != nxt) runops(); \ JMPENV_POP; \ break; \ - case JMP_ABNORMAL: JMPENV_POP; JMPENV_JUMP(JMP_ABNORMAL); \ - case JMP_MYEXIT: JMPENV_POP; JMPENV_JUMP(JMP_MYEXIT); \ - case JMP_EXCEPTION: \ + case 1: JMPENV_POP; JMPENV_JUMP(1); \ + case 2: JMPENV_POP; JMPENV_JUMP(2); \ + case 3: \ JMPENV_POP; \ if (restartop != nxt) \ - JMPENV_JUMP(JMP_EXCEPTION); \ + JMPENV_JUMP(3); \ } \ op = nxt; \ SPAGAIN; \ @@ -64,8 +64,8 @@ int ret; \ JMPENV_PUSH(ret); \ switch (ret) { \ - case JMP_ABNORMAL: JMPENV_POP; JMPENV_JUMP(JMP_ABNORMAL); \ - case JMP_MYEXIT: JMPENV_POP; JMPENV_JUMP(JMP_MYEXIT); \ - case JMP_EXCEPTION: JMPENV_POP; SPAGAIN; goto label;\ + case 1: JMPENV_POP; JMPENV_JUMP(1); \ + case 2: JMPENV_POP; JMPENV_JUMP(2); \ + case 3: JMPENV_POP; SPAGAIN; goto label;\ } \ } while (0) |