diff options
author | David Mitchell <davem@iabyn.com> | 2022-05-28 12:11:20 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2022-06-20 11:27:22 +0100 |
commit | a8c38aeb02f54027c283d5d8948af4947f669700 (patch) | |
tree | e7994f6d14a854fed6def32a8c297a07fe7e7a0f /cop.h | |
parent | c4ac568bb31f6eacb56f1263a238e7a5b19fc3f0 (diff) | |
download | perl-a8c38aeb02f54027c283d5d8948af4947f669700.tar.gz |
s/JUMPENV/JMPENV/g
Although one of the macros associated with the JMPENV facility
is inconsistently called JMPENV_JUMP(), fix all code comments
and debugging output to eliminate any references to JUMPENV.
Diffstat (limited to 'cop.h')
-rw-r--r-- | cop.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -115,7 +115,7 @@ typedef struct jmpenv JMPENV; DEBUG_l({ \ int i = 0; JMPENV *p = PL_top_env; \ while (p) { i++; p = p->je_prev; } \ - Perl_deb(aTHX_ "JUMPENV_PUSH level=%d at %s:%d\n", \ + Perl_deb(aTHX_ "JMPENV_PUSH level=%d at %s:%d\n", \ i, __FILE__, __LINE__);}) \ cur_env.je_prev = PL_top_env; \ JE_OLD_STACK_HWM_save(cur_env); \ @@ -132,7 +132,7 @@ typedef struct jmpenv JMPENV; DEBUG_l({ \ int i = -1; JMPENV *p = PL_top_env; \ while (p) { i++; p = p->je_prev; } \ - Perl_deb(aTHX_ "JUMPENV_POP level=%d at %s:%d\n", \ + Perl_deb(aTHX_ "JMPENV_POP level=%d at %s:%d\n", \ i, __FILE__, __LINE__);}) \ assert(PL_top_env == &cur_env); \ PL_delaymagic = cur_env.je_old_delaymagic; \ @@ -144,7 +144,7 @@ typedef struct jmpenv JMPENV; DEBUG_l({ \ int i = -1; JMPENV *p = PL_top_env; \ while (p) { i++; p = p->je_prev; } \ - Perl_deb(aTHX_ "JUMPENV_JUMP(%d) level=%d at %s:%d\n", \ + Perl_deb(aTHX_ "JMPENV_JUMP(%d) level=%d at %s:%d\n", \ (int)v, i, __FILE__, __LINE__);}) \ if (PL_top_env->je_prev) \ PerlProc_longjmp(PL_top_env->je_buf, (v)); \ |