From 7c06b590c066c6b354b0347a68bd9817268651b8 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 10 Nov 1997 22:41:31 +0000
Subject: 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
---
 pp_ctl.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'pp_ctl.c')

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;
 }
-- 
cgit v1.2.1