diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-27 15:16:42 +0000 |
| commit | 4d1ff10ffec86208b0da135b87c76b89e61c866e (patch) | |
| tree | 741ba054917367001dce29e674a1e99c8fa229d3 /deb.c | |
| parent | eb9ee3dc93112029ee3de6fd047d54576a1f1a1f (diff) | |
| download | perl-4d1ff10ffec86208b0da135b87c76b89e61c866e.tar.gz | |
Changes USE_THREADS to USE_5005THREADS in the entire source.
Thanks to H. Merijn Brand for the patch.
Some of the comments and or guards might be removable in perl.h now.
p4raw-id: //depot/perl@11758
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -47,7 +47,7 @@ Perl_vdeb(pTHX_ const char *pat, va_list *args) #ifdef DEBUGGING char* file = CopFILE(PL_curcop); -#ifdef USE_THREADS +#ifdef USE_5005THREADS PerlIO_printf(Perl_debug_log, "0x%"UVxf" (%s:%ld)\t", PTR2UV(thr), (file ? file : "<free>"), @@ -55,7 +55,7 @@ Perl_vdeb(pTHX_ const char *pat, va_list *args) #else PerlIO_printf(Perl_debug_log, "(%s:%ld)\t", (file ? file : "<free>"), (long)CopLINE(PL_curcop)); -#endif /* USE_THREADS */ +#endif /* USE_5005THREADS */ (void) PerlIO_vprintf(Perl_debug_log, pat, *args); #endif /* DEBUGGING */ } @@ -93,13 +93,13 @@ Perl_debstack(pTHX) if (*markscan >= i) break; -#ifdef USE_THREADS +#ifdef USE_5005THREADS PerlIO_printf(Perl_debug_log, i ? "0x%"UVxf" => ... " : "0x%lx => ", PTR2UV(thr)); #else PerlIO_printf(Perl_debug_log, i ? " => ... " : " => "); -#endif /* USE_THREADS */ +#endif /* USE_5005THREADS */ if (PL_stack_base[0] != &PL_sv_undef || PL_stack_sp < PL_stack_base) PerlIO_printf(Perl_debug_log, " [STACK UNDERFLOW!!!]\n"); do { |