From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 21 Feb 2000 03:16:24 +0000 (+0000)
Subject: Thou shalt not printf longs with %d.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76cfd9aab7f7c0e39ea86aa1b2b9572c573b7b6f;p=p5sagit%2Fp5-mst-13.2.git

Thou shalt not printf longs with %d.

p4raw-id: //depot/cfgperl@5177
---

diff --git a/malloc.c b/malloc.c
index 9c6a6d8..0dc732c 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1944,7 +1944,7 @@ Perl_dump_mstats(pTHX_ char *s)
 			  (long)BUCKET_SIZE(MIN_BUCKET),
 			  (long)BUCKET_SIZE_REAL(buffer.topbucket), 
 			  (long)BUCKET_SIZE(buffer.topbucket));
-  	PerlIO_printf(Perl_error_log, "%8d free:", buffer.totfree);
+  	PerlIO_printf(Perl_error_log, "%8ld free:", buffer.totfree);
   	for (i = MIN_EVEN_REPORT; i <= buffer.topbucket; i += BUCKETS_PER_POW2) {
   		PerlIO_printf(Perl_error_log, 
 			      ((i < 8*BUCKETS_PER_POW2 || i == 10*BUCKETS_PER_POW2)
@@ -1962,7 +1962,7 @@ Perl_dump_mstats(pTHX_ char *s)
 			      buffer.nfree[i]);
   	}
 #endif 
-  	PerlIO_printf(Perl_error_log, "\n%8d used:", buffer.total - buffer.totfree);
+  	PerlIO_printf(Perl_error_log, "\n%8ld used:", buffer.total - buffer.totfree);
   	for (i = MIN_EVEN_REPORT; i <= buffer.topbucket; i += BUCKETS_PER_POW2) {
   		PerlIO_printf(Perl_error_log, 
 			      ((i < 8*BUCKETS_PER_POW2 || i == 10*BUCKETS_PER_POW2)
@@ -1980,7 +1980,7 @@ Perl_dump_mstats(pTHX_ char *s)
 			      buffer.ntotal[i] - buffer.nfree[i]);
   	}
 #endif 
-	PerlIO_printf(Perl_error_log, "\nTotal sbrk(): %d/%d:%d. Odd ends: pad+heads+chain+tail: %d+%d+%d+%d.\n",
+	PerlIO_printf(Perl_error_log, "\nTotal sbrk(): %ld/%ld:%ld. Odd ends: pad+heads+chain+tail: %ld+%ld+%ld+%ld.\n",
 		      buffer.total_sbrk, buffer.sbrks, buffer.sbrk_good,
 		      buffer.sbrk_slack, buffer.start_slack,
 		      buffer.total_chain, buffer.sbrked_remains);