X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=run.c;h=7922bfd1a136c1371e3258f49d2b73d8da3466e9;hb=3acd27eec7b2f3a97d98cb76eaeef38ac289882b;hp=543fb08a64489b96a877aa2f928729953d692dfb;hpb=8ac853655d9b744749adcb9687c13d99cdd6e9fb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/run.c b/run.c
index 543fb08..7922bfd 100644
--- a/run.c
+++ b/run.c
@@ -16,14 +16,10 @@
  * know.  Run now!  Hope is in speed!"  --Gandalf
  */
 
-dEXT char **watchaddr = 0;
-dEXT char *watchok;
 
 int
 runops_standard(void) {
     dTHR;
-    SAVEI32(runlevel);
-    runlevel++;
 
     while ( op = (*op->op_ppaddr)(ARGS) ) ;
 
@@ -32,6 +28,10 @@ runops_standard(void) {
 }
 
 #ifdef DEBUGGING
+
+dEXT char **watchaddr = 0;
+dEXT char *watchok;
+
 static void debprof _((OP*o));
 
 int
@@ -42,9 +42,6 @@ runops_debug(void) {
 	return 0;
     }
 
-    SAVEI32(runlevel);
-    runlevel++;
-
     do {
 	if (debug) {
 	    if (watchaddr != 0 && *watchaddr != watchok)
@@ -117,5 +114,5 @@ debprofdump(void)
     }
 }
 
-#endif
+#endif /* DEBUGGING */