Change 30118 by [EMAIL PROTECTED] on 2007/02/04 19:27:45
Integrate:
[ 23161]
make -Dl log runops loop entry and exit, and jump level popping
Affected files ...
... //depot/maint-5.8/perl/dump.c#77 integrate
... //depot/maint-5.8/perl/scope.h#26 integrate
Differences ...
==== //depot/maint-5.8/perl/dump.c#77 (text) ====
Index: perl/dump.c
--- perl/dump.c#76~30096~ 2007-02-02 10:03:45.000000000 -0800
+++ perl/dump.c 2007-02-04 11:27:45.000000000 -0800
@@ -1614,6 +1614,7 @@
return 0;
}
+ DEBUG_l(Perl_deb(aTHX_ "Entering new RUNOPS level\n"));
do {
PERL_ASYNC_CHECK();
if (PL_debug) {
@@ -1636,6 +1637,7 @@
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;
==== //depot/maint-5.8/perl/scope.h#26 (text) ====
Index: perl/scope.h
--- perl/scope.h#25~30066~ 2007-01-29 11:07:36.000000000 -0800
+++ perl/scope.h 2007-02-04 11:27:45.000000000 -0800
@@ -414,7 +414,11 @@
} 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 { \
End of Patch.
