This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make -Dl log runops loop entry and exit, and jump level popping
authorDave Mitchell <davem@fdisolutions.com>
Sun, 25 Jul 2004 19:05:28 +0000 (19:05 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Sun, 25 Jul 2004 19:05:28 +0000 (19:05 +0000)
p4raw-id: //depot/perl@23161

dump.c
scope.h

diff --git a/dump.c b/dump.c
index abfddd0..533dd78 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1540,6 +1540,7 @@ Perl_runops_debug(pTHX)
        return 0;
     }
 
+    DEBUG_l(Perl_deb(aTHX_ "Entering new RUNOPS level\n"));
     do {
        PERL_ASYNC_CHECK();
        if (PL_debug) {
@@ -1562,6 +1563,7 @@ Perl_runops_debug(pTHX)
            if (DEBUG_P_TEST_) debprof(PL_op);
        }
     } while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX)));
+    DEBUG_l(Perl_deb(aTHX_ "leaving RUNOPS level\n"));
 
     TAINT_NOT;
     return 0;
diff --git a/scope.h b/scope.h
index f86039d..29bc4c6 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -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 {                                               \