diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 05:01:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 05:01:54 +0000 |
| commit | 17c3b45099488fbc22dc1d4e0e4600c17bc12645 (patch) | |
| tree | d3f866944ed1ba0c3b916fa245466d83f4e77fe8 /run.c | |
| parent | 1d2dff63f533f62282a700198c67c41dcb6ad6df (diff) | |
| download | perl-17c3b45099488fbc22dc1d4e0e4600c17bc12645.tar.gz | |
[win32] misc changes
- remove code that works around lack of I_STDARG (we're a happy ANSI family)
- leave dump_foo() stubs when not -DDEBUGGING for consistent symbol exports
p4raw-id: //depot/win32/perl@1053
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 23 |
1 files changed, 18 insertions, 5 deletions
@@ -18,7 +18,8 @@ int -runops_standard(void) { +runops_standard(void) +{ dTHR; while ( op = (*op->op_ppaddr)(ARGS) ) ; @@ -34,8 +35,12 @@ dEXT char *watchok; static void debprof _((OP*o)); +#endif /* DEBUGGING */ + int -runops_debug(void) { +runops_debug(void) +{ +#ifdef DEBUGGING dTHR; if (!op) { warn("NULL OP IN RUN"); @@ -55,11 +60,15 @@ runops_debug(void) { TAINT_NOT; return 0; +#else + return runops_standard(); +#endif /* DEBUGGING */ } I32 debop(OP *o) { +#ifdef DEBUGGING SV *sv; deb("%s", op_name[o->op_type]); switch (o->op_type) { @@ -81,18 +90,22 @@ debop(OP *o) break; } PerlIO_printf(Perl_debug_log, "\n"); +#endif /* DEBUGGING */ return 0; } void watch(char **addr) { +#ifdef DEBUGGING watchaddr = addr; watchok = *addr; PerlIO_printf(Perl_debug_log, "WATCHING, %lx is currently %lx\n", (long)watchaddr, (long)watchok); +#endif /* DEBUGGING */ } +#ifdef DEBUGGING static void debprof(OP *o) { @@ -100,10 +113,12 @@ debprof(OP *o) New(000, profiledata, MAXO, U32); ++profiledata[o->op_type]; } +#endif /* DEBUGGING */ void debprofdump(void) { +#ifdef DEBUGGING unsigned i; if (!profiledata) return; @@ -112,7 +127,5 @@ debprofdump(void) PerlIO_printf(Perl_debug_log, "%u\t%lu\n", i, (unsigned long)profiledata[i]); } +#endif /* DEBUGGING */ } - -#endif /* DEBUGGING */ - |