From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 25 Jul 2004 19:05:28 +0000 (+0000)
Subject: make -Dl log runops loop entry and exit, and jump level popping
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f3673fbb8fe5a0673a009424f0aef544e49f0f4;p=p5sagit%2Fp5-mst-13.2.git

make -Dl log runops loop entry and exit, and jump level popping

p4raw-id: //depot/perl@23161
---

diff --git a/dump.c b/dump.c
index abfddd0..533dd78 100644
--- 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
--- 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 {						\