diff options
| author | Joshua Pritikin <joshua.pritikin@db.com> | 1998-06-14 10:03:15 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-15 05:32:01 +0000 |
| commit | 1163b5c41f1e1e2856ca82fef1598bfbb6c54d72 (patch) | |
| tree | 5b79b14d3fdae82835bb4e3561173110803f64d4 /cc_runtime.h | |
| parent | f55ee38a033ce570145fdd38bb9f09acf59d37cd (diff) | |
| download | perl-1163b5c41f1e1e2856ca82fef1598bfbb6c54d72.tar.gz | |
added patch, fixed typo, reworked documentation
Message-Id: <H00000e500071aa3@MHS>
Subject: [PATCH 5.004_66] JMPENV!
p4raw-id: //depot/perl@1135
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 fe830c0bde..7d28ff5bb9 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 ret; \ + int jmpstat; \ PUTBACK; \ - JMPENV_PUSH(ret); \ - switch (ret) { \ - case 0: \ + JMPENV_PUSH(jmpstat); \ + switch (jmpstat) { \ + case JMP_NORMAL: \ op = ppaddr(ARGS); \ retstack[retstack_ix - 1] = Nullop; \ if (op != nxt) runops(); \ JMPENV_POP; \ break; \ - case 1: JMPENV_POP; JMPENV_JUMP(1); \ - case 2: JMPENV_POP; JMPENV_JUMP(2); \ - case 3: \ + case JMP_ABNORMAL: JMPENV_POP; JMPENV_JUMP(JMP_ABNORMAL); \ + case JMP_MYEXIT: JMPENV_POP; JMPENV_JUMP(JMP_MYEXIT); \ + case JMP_EXCEPTION: \ JMPENV_POP; \ if (restartop != nxt) \ - JMPENV_JUMP(3); \ + JMPENV_JUMP(JMP_EXCEPTION); \ } \ op = nxt; \ SPAGAIN; \ @@ -64,8 +64,8 @@ int ret; \ JMPENV_PUSH(ret); \ switch (ret) { \ - case 1: JMPENV_POP; JMPENV_JUMP(1); \ - case 2: JMPENV_POP; JMPENV_JUMP(2); \ - case 3: JMPENV_POP; SPAGAIN; goto label;\ + 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;\ } \ } while (0) |