diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 16:04:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-10-23 16:04:02 +0000 |
| commit | 7b0972df8f5014603934d3178907bf5277318161 (patch) | |
| tree | 6748f8128f34cfdbe81265ca503330f3c8951f19 /ext/Devel | |
| parent | 717c4fccde48e6e876d5a07742c5d23716c698ef (diff) | |
| download | perl-7b0972df8f5014603934d3178907bf5277318161.tar.gz | |
Fix the printfing nits pointed out by using gcc -Wall and
Configure -Duse64bits -Dccflags=-DDEBUGGING in Solaris,
plus few other warnings in Dumper.xs.
p4raw-id: //depot/cfgperl@4426
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/DProf/DProf.xs | 14 | ||||
| -rw-r--r-- | ext/Devel/Peek/Peek.xs | 2 |
2 files changed, 8 insertions, 8 deletions
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs index 533f94b5bf..c751127f08 100644 --- a/ext/Devel/DProf/DProf.xs +++ b/ext/Devel/DProf/DProf.xs @@ -163,13 +163,13 @@ static void prof_dumpa(opcode ptype, U32 id) { if(ptype == OP_LEAVESUB){ - PerlIO_printf(fp,"- %lx\n", id ); + PerlIO_printf(fp,"- %"UVxf"\n", (UV)id ); } else if(ptype == OP_ENTERSUB) { - PerlIO_printf(fp,"+ %lx\n", id ); + PerlIO_printf(fp,"+ %"UVxf"\n", (UV)id ); } else if(ptype == OP_GOTO) { - PerlIO_printf(fp,"* %lx\n", id ); + PerlIO_printf(fp,"* %"UVxf"\n", (UV)id ); } else if(ptype == OP_DIE) { - PerlIO_printf(fp,"/ %lx\n", id ); + PerlIO_printf(fp,"/ %"UVxf"\n", (UV)id ); } else { PerlIO_printf(fp,"Profiler unknown prof code %d\n", ptype); } @@ -178,7 +178,7 @@ prof_dumpa(opcode ptype, U32 id) static void prof_dumps(U32 id, char *pname, char *gname) { - PerlIO_printf(fp,"& %lx %s %s\n", id, pname, gname); + PerlIO_printf(fp,"& %"UVxf" %s %s\n", (UV)id, pname, gname); } static clock_t otms_utime, otms_stime, orealtime; @@ -477,7 +477,7 @@ prof_recordheader(void) /* fp is opened in the BOOT section */ PerlIO_printf(fp, "#fOrTyTwO\n" ); - PerlIO_printf(fp, "$hz=%d;\n", DPROF_HZ ); + PerlIO_printf(fp, "$hz=%"IVdf";\n", (IV)DPROF_HZ ); PerlIO_printf(fp, "$XS_VERSION='DProf %s';\n", XS_VERSION ); PerlIO_printf(fp, "# All values are given in HZ\n" ); test_time(&r, &u, &s); @@ -516,7 +516,7 @@ prof_record(void) prof_end.tms_utime - prof_start.tms_utime - wprof_u, prof_end.tms_stime - prof_start.tms_stime - wprof_s, rprof_end - rprof_start - wprof_r ); - PerlIO_printf(fp, "\n$total_marks=%ld;", total); + PerlIO_printf(fp, "\n$total_marks=%"IVdf, (IV)total); PerlIO_close( fp ); } diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs index 4f3400312e..d2f66c40da 100644 --- a/ext/Devel/Peek/Peek.xs +++ b/ext/Devel/Peek/Peek.xs @@ -159,7 +159,7 @@ PPCODE: PL_dumpindent = 2; for (i=1; i<items; i++) { - PerlIO_printf(Perl_debug_log, "Elt No. %ld 0x%lx\n", i - 1, ST(i)); + PerlIO_printf(Perl_debug_log, "Elt No. %ld 0x%"UVxf"\n", i - 1, PTR2UV(ST(i))); do_sv_dump(0, Perl_debug_log, ST(i), 0, lim, dumpop && SvTRUE(dumpop), pv_lim); } PL_dumpindent = save_dumpindent; |