From: Steve Hay <SteveHay@planit.com>
Date: Wed, 20 Jun 2007 16:26:01 +0000 (+0000)
Subject: Silence "signed/unsigned mismatch" warning from VC++ when building
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0f74deda037d4d91614201b3a04555f22b7b2d8;p=p5sagit%2Fp5-mst-13.2.git

Silence "signed/unsigned mismatch" warning from VC++ when building
with -DPERL_DEBUGGING_MSTATS

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

diff --git a/ext/Devel/Peek/Peek.xs b/ext/Devel/Peek/Peek.xs
index 75023cd..f07c2e5 100644
--- a/ext/Devel/Peek/Peek.xs
+++ b/ext/Devel/Peek/Peek.xs
@@ -226,9 +226,8 @@ _mstats_to_hv(HV *hv, const struct mstats_buffer *b, int level)
 	warn("FIXME: internal mstats buffer too short");
     
     for (type = 0; type < (level ? 4 : 2); type++) {
-	UV *p = 0, *p1 = 0;
+	UV *p = 0, *p1 = 0, i;
 	AV *av;
-	int i;
 	static const char *types[4] = { 
 	    "free", "used", "mem_size", "available_size"    
 	};