diff options
| author | Robin Barker <RMBarker@cpan.org> | 2004-03-17 18:37:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-17 19:13:03 +0000 |
| commit | c0fd1b4283835f2ec7b48824dd974b16677cdf78 (patch) | |
| tree | a89289222cc935daa5548c20862a2ab942328de7 /dump.c | |
| parent | b9d46b3942a9a8cce9cbca1e08f61ac23083a740 (diff) | |
| download | perl-c0fd1b4283835f2ec7b48824dd974b16677cdf78.tar.gz | |
format/casting/warning RE: perl 5.9.1
Message-ID: <533D273D4014D411AB1D00062938C4D90404682E@hotel.npl.co.uk>
p4raw-id: //depot/perl@22521
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 19 |
1 files changed, 10 insertions, 9 deletions
@@ -412,13 +412,13 @@ sequence(pTHX_ register OP *o) if (!o) return; - op = newSVuv((UV) o); + op = newSVuv(PTR2UV(o)); key = SvPV(op, len); if (hv_exists(Sequence, key, len)) return; for (; o; o = o->op_next) { - op = newSVuv((UV) o); + op = newSVuv(PTR2UV(o)); key = SvPV(op, len); if (hv_exists(Sequence, key, len)) break; @@ -501,7 +501,7 @@ sequence_num(pTHX_ OP *o) char *key; STRLEN len; if (!o) return 0; - op = newSVuv((UV) o); + op = newSVuv(PTR2UV(o)); key = SvPV(op, len); seq = hv_fetch(Sequence, key, len, 0); return seq ? SvUV(*seq): 0; @@ -516,14 +516,15 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) level++; seq = sequence_num(aTHX_ o); if (seq) - PerlIO_printf(file, "%-4d", seq); + PerlIO_printf(file, "%-4"UVf, seq); else PerlIO_printf(file, " "); PerlIO_printf(file, "%*sTYPE = %s ===> ", (int)(PL_dumpindent*level-4), "", OP_NAME(o)); if (o->op_next) - PerlIO_printf(file, seq ? "%d\n" : "(%d)\n", sequence_num(aTHX_ o->op_next)); + PerlIO_printf(file, seq ? "%"UVf"\n" : "(%"UVf")\n", + sequence_num(aTHX_ o->op_next)); else PerlIO_printf(file, "DONE\n"); if (o->op_targ) { @@ -795,17 +796,17 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) case OP_ENTERLOOP: Perl_dump_indent(aTHX_ level, file, "REDO ===> "); if (cLOOPo->op_redoop) - PerlIO_printf(file, "%d\n", sequence_num(aTHX_ cLOOPo->op_redoop)); + PerlIO_printf(file, "%"UVf"\n", sequence_num(aTHX_ cLOOPo->op_redoop)); else PerlIO_printf(file, "DONE\n"); Perl_dump_indent(aTHX_ level, file, "NEXT ===> "); if (cLOOPo->op_nextop) - PerlIO_printf(file, "%d\n", sequence_num(aTHX_ cLOOPo->op_nextop)); + PerlIO_printf(file, "%"UVf"\n", sequence_num(aTHX_ cLOOPo->op_nextop)); else PerlIO_printf(file, "DONE\n"); Perl_dump_indent(aTHX_ level, file, "LAST ===> "); if (cLOOPo->op_lastop) - PerlIO_printf(file, "%d\n", sequence_num(aTHX_ cLOOPo->op_lastop)); + PerlIO_printf(file, "%"UVf"\n", sequence_num(aTHX_ cLOOPo->op_lastop)); else PerlIO_printf(file, "DONE\n"); break; @@ -817,7 +818,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, OP *o) case OP_AND: Perl_dump_indent(aTHX_ level, file, "OTHER ===> "); if (cLOGOPo->op_other) - PerlIO_printf(file, "%d\n", sequence_num(aTHX_ cLOGOPo->op_other)); + PerlIO_printf(file, "%"UVf"\n", sequence_num(aTHX_ cLOGOPo->op_other)); else PerlIO_printf(file, "DONE\n"); break; |