summaryrefslogtreecommitdiff
path: root/deb.c
diff options
context:
space:
mode:
Diffstat (limited to 'deb.c')
-rw-r--r--deb.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/deb.c b/deb.c
index dec5c06a15..eaa50826d4 100644
--- a/deb.c
+++ b/deb.c
@@ -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 {