This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dump.c: format fixes
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 20 Feb 2007 03:00:50 +0000 (05:00 +0200)
committerSteve Peters <steve@fisharerojo.org>
Tue, 20 Feb 2007 03:52:37 +0000 (03:52 +0000)
Message-Id: <20070220010050.CCDAF43A67@anubis.hut.fi>

p4raw-id: //depot/perl@30366

dump.c

diff --git a/dump.c b/dump.c
index 85d6c1c..f204651 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1785,8 +1785,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        if (SvVALID(sv)) {
            Perl_dump_indent(aTHX_ level, file, "  FLAGS = %u\n", (U8)BmFLAGS(sv));
            Perl_dump_indent(aTHX_ level, file, "  RARE = %u\n", (U8)BmRARE(sv));
-           Perl_dump_indent(aTHX_ level, file, "  PREVIOUS = %"UVuf"\n", BmPREVIOUS(sv));
-           Perl_dump_indent(aTHX_ level, file, "  USEFUL = %"IVdf"\n", BmUSEFUL(sv));
+           Perl_dump_indent(aTHX_ level, file, "  PREVIOUS = %"UVuf"\n", (UV)BmPREVIOUS(sv));
+           Perl_dump_indent(aTHX_ level, file, "  USEFUL = %"IVdf"\n", (IV)BmUSEFUL(sv));
        }
        if (!isGV_with_GP(sv))
            break;