#endif
int
-runops_standard(void) {
+runops_standard(void)
+{
dTHR;
while ( op = (CALLOP->op_ppaddr)(ARGS) ) ;
return 0;
}
+#ifdef DEBUGGING
+
dEXT char **watchaddr = 0;
dEXT char *watchok;
static void debprof _((OP*o));
#endif
+#endif /* DEBUGGING */
+
int
runops_debug(void)
{
return 0;
#else
return runops_standard();
-#endif /* DEBUGGING */
+#endif /* DEBUGGING */
}
I32
break;
}
PerlIO_printf(Perl_debug_log, "\n");
-#endif /* DEBUGGING */
+#endif /* DEBUGGING */
return 0;
}
watchok = *addr;
PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n",
(long)watchaddr, (long)watchok);
-#endif /* DEBUGGING */
+#endif /* DEBUGGING */
}
STATIC void
PerlIO_printf(Perl_debug_log,
"%u\t%lu\n", i, (unsigned long)profiledata[i]);
}
-#endif /* DEBUGGING */
+#endif /* DEBUGGING */
}