From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 20 Feb 2007 03:00:50 +0000 (+0200)
Subject: dump.c: format fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ca32a20c96eb5f465b6a04c8d6e2c86bb827312;p=p5sagit%2Fp5-mst-13.2.git

dump.c: format fixes
Message-Id: <20070220010050.CCDAF43A67@anubis.hut.fi>

p4raw-id: //depot/perl@30366
---

diff --git a/dump.c b/dump.c
index 85d6c1c..f204651 100644
--- 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;