diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-07-25 19:05:28 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-07-25 19:05:28 +0000 |
| commit | 9f3673fbb8fe5a0673a009424f0aef544e49f0f4 (patch) | |
| tree | fa783f6dec994889bfec1fe194e9c68924c3c24a /scope.h | |
| parent | 0cb0633f672fc6005f4c2ac2d095ce9b3152b1a4 (diff) | |
| download | perl-9f3673fbb8fe5a0673a009424f0aef544e49f0f4.tar.gz | |
make -Dl log runops loop entry and exit, and jump level popping
p4raw-id: //depot/perl@23161
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -394,7 +394,11 @@ typedef void *(CPERLscope(*protect_proc_t)) (pTHX_ volatile JMPENV *pcur_env, } STMT_END #define JMPENV_POP \ - STMT_START { PL_top_env = cur_env.je_prev; } STMT_END + STMT_START { \ + DEBUG_l(Perl_deb(aTHX_ "popping jumplevel was %p, now %p\n", \ + PL_top_env, cur_env.je_prev)); \ + PL_top_env = cur_env.je_prev; \ + } STMT_END #define JMPENV_JUMP(v) \ STMT_START { \ |