diff options
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 15 |
1 files changed, 10 insertions, 5 deletions
@@ -23,7 +23,8 @@ #endif int -runops_standard(void) { +runops_standard(void) +{ dTHR; while ( op = (CALLOP->op_ppaddr)(ARGS) ) ; @@ -32,6 +33,8 @@ runops_standard(void) { return 0; } +#ifdef DEBUGGING + dEXT char **watchaddr = 0; dEXT char *watchok; @@ -39,6 +42,8 @@ dEXT char *watchok; static void debprof _((OP*o)); #endif +#endif /* DEBUGGING */ + int runops_debug(void) { @@ -64,7 +69,7 @@ runops_debug(void) return 0; #else return runops_standard(); -#endif /* DEBUGGING */ +#endif /* DEBUGGING */ } I32 @@ -92,7 +97,7 @@ debop(OP *o) break; } PerlIO_printf(Perl_debug_log, "\n"); -#endif /* DEBUGGING */ +#endif /* DEBUGGING */ return 0; } @@ -104,7 +109,7 @@ watch(char **addr) watchok = *addr; PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n", (long)watchaddr, (long)watchok); -#endif /* DEBUGGING */ +#endif /* DEBUGGING */ } STATIC void @@ -129,5 +134,5 @@ debprofdump(void) PerlIO_printf(Perl_debug_log, "%u\t%lu\n", i, (unsigned long)profiledata[i]); } -#endif /* DEBUGGING */ +#endif /* DEBUGGING */ } |