diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 07:22:51 +0000 |
| commit | d0340efeaf607d2e70273b4fa22e5ee3b358abe8 (patch) | |
| tree | 8187e35c8e61d21279785c869e1a5d92009e8e57 /run.c | |
| parent | ab39fa9dbf3b1a1fb7beb555653d0558a089397f (diff) | |
| parent | a1737d5b9df80320e5be59ab8fa7c96455d6b5bf (diff) | |
| download | perl-d0340efeaf607d2e70273b4fa22e5ee3b358abe8.tar.gz | |
[asperl] integrate mainline changes
p4raw-id: //depot/asperl@1055
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 */ } |