Further tweaks to perluniintro.pod

[p5sagit/p5-mst-13.2.git] / deb.c

diff --git a/deb.c b/deb.c
index 37b42e1..e47ff9b 100644 (file)
--- a/deb.c
+++ b/deb.c
@@ -47,15 +47,8 @@ Perl_vdeb(pTHX_ const char *pat, va_list *args)
 #ifdef DEBUGGING
     char* file = OutCopFILE(PL_curcop);
 
-#ifdef USE_5005THREADS
-    PerlIO_printf(Perl_debug_log, "0x%"UVxf" (%s:%ld)\t",
-                 PTR2UV(thr),
-                 (file ? file : "<free>"),
-                 (long)CopLINE(PL_curcop));
-#else
     PerlIO_printf(Perl_debug_log, "(%s:%ld)\t", (file ? file : "<free>"),
                  (long)CopLINE(PL_curcop));
-#endif /* USE_5005THREADS */
     (void) PerlIO_vprintf(Perl_debug_log, pat, *args);
 #endif /* DEBUGGING */
 }
@@ -191,14 +184,14 @@ Perl_deb_stack_all(pTHX)
        else
            si_name = si_names[si_name_ix];
        PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n",
-                                               si_ix, si_name);
+                                               (IV)si_ix, si_name);
 
        for (ix=0; ix<=si->si_cxix; ix++) {
 
            cx = &(si->si_cxstack[ix]);
            PerlIO_printf(Perl_debug_log,
                    "  CX %"IVdf": %-6s => ",
-                   ix, PL_block_type[CxTYPE(cx)]
+                   (IV)ix, PL_block_type[CxTYPE(cx)]
            );
            /* substitution contexts don't save stack pointers etc) */
            if (CxTYPE(cx) == CXt_SUBST)