Remove runlevel. It was used to count how many runops() calls

we were in the process of executing, and longjmp() to the topmost
one (if not already there).  We use a null top_env->je_prev
to distinguish that now.

p4raw-id: //depot/win32/perl@223

1 files changed, 1 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 915ee6c588..f8cff58567 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2079,20 +2079,18 @@ OP *o;
 {
     dTHR;
     int ret;
-    I32 oldrunlevel = runlevel;
     OP *oldop = op;
     dJMPENV;
 
     op = o;
 #ifdef DEBUGGING
     assert(CATCH_GET == TRUE);
-    DEBUG_l(deb("(Setting up local jumplevel, runlevel = %ld)\n", (long)runlevel+1));
+    DEBUG_l(deb("Setting up local jumplevel %p, was %p\n", &cur_env, top_env));
 #endif
     JMPENV_PUSH(ret);
     switch (ret) {
     default:				/* topmost level handles it */
 	JMPENV_POP;
-	runlevel = oldrunlevel;
 	op = oldop;
 	JMPENV_JUMP(ret);
 	/* NOTREACHED */
@@ -2109,7 +2107,6 @@ OP *o;
 	break;
     }
     JMPENV_POP;
-    runlevel = oldrunlevel;
     op = oldop;
     return Nullop;
 }