diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 21:47:49 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 21:47:49 +0000 |
| commit | b900a5214ea580557fb7c41bb3b529d90bad25a3 (patch) | |
| tree | 938bd01cc3111259f4c4a073b1647bd546a4603b /deb.c | |
| parent | 31582a29107eeb803e2d1134e77b201068578e21 (diff) | |
| download | perl-b900a5214ea580557fb7c41bb3b529d90bad25a3.tar.gz | |
More printf-fixes (see also #4426).
p4raw-id: //depot/cfgperl@4429
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 26 |
1 files changed, 15 insertions, 11 deletions
@@ -50,8 +50,8 @@ Perl_vdeb(pTHX_ const char *pat, va_list *args) GV* gv = PL_curcop->cop_filegv; #ifdef USE_THREADS - PerlIO_printf(Perl_debug_log, "0x%lx (%s:%ld)\t", - (unsigned long) thr, + PerlIO_printf(Perl_debug_log, "0x%"UVxf" (%s:%ld)\t", + PTR2UV(thr), SvTYPE(gv) == SVt_PVGV ? SvPVX(GvSV(gv)) : "<free>", (long)PL_curcop->cop_line); #else @@ -80,13 +80,16 @@ Perl_debstackptrs(pTHX) { #ifdef DEBUGGING dTHR; - PerlIO_printf(Perl_debug_log, "%8lx %8lx %8ld %8ld %8ld\n", - (unsigned long)PL_curstack, (unsigned long)PL_stack_base, - (long)*PL_markstack_ptr, (long)(PL_stack_sp-PL_stack_base), - (long)(PL_stack_max-PL_stack_base)); - PerlIO_printf(Perl_debug_log, "%8lx %8lx %8ld %8ld %8ld\n", - (unsigned long)PL_mainstack, (unsigned long)AvARRAY(PL_curstack), - (long)PL_mainstack, (long)AvFILLp(PL_curstack), (long)AvMAX(PL_curstack)); + PerlIO_printf(Perl_debug_log, + "%8"UVxf" %8"UVxf" %8"IVdf" %8"IVdf" %8"IVdf"\n", + PTR2UV(PL_curstack), PTR2UV(PL_stack_base), + (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), + (IV)(PL_stack_max-PL_stack_base)); + PerlIO_printf(Perl_debug_log, + "%8"UVxf" %8"UVxf" %8"UVuf" %8"UVuf" %8"UVuf"\n", + PTR2UV(PL_mainstack), PTR2UV(AvARRAY(PL_curstack)), + PTR2UV(PL_mainstack), PTR2UV(AvFILLp(PL_curstack)), + PTR2UV(AvMAX(PL_curstack))); #endif /* DEBUGGING */ return 0; } @@ -108,8 +111,9 @@ Perl_debstack(pTHX) break; #ifdef USE_THREADS - PerlIO_printf(Perl_debug_log, i ? "0x%lx => ... " : "0x%lx => ", - (unsigned long) thr); + PerlIO_printf(Perl_debug_log, + i ? "0x%"UVxf" => ... " : "0x%lx => ", + PTR2UV(thr)); #else PerlIO_printf(Perl_debug_log, i ? " => ... " : " => "); #endif /* USE_THREADS */ |