From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 23 Jun 2008 09:41:11 +0000 (-0400)
Subject: Fix malloc.c warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=532939df3783fc17b262c6a30b57e0b086abe4aa;p=p5sagit%2Fp5-mst-13.2.git

Fix malloc.c warning
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510806230641x37afed4bla697e381b3ba9d6d@mail.gmail.com>

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

diff --git a/malloc.c b/malloc.c
index df199c6..bfa4cec 100644
--- a/malloc.c
+++ b/malloc.c
@@ -2293,7 +2293,7 @@ Perl_realloc(void *mp, size_t nbytes)
 		nmalloc[bucket]--;
 		nmalloc[pow * BUCKETS_PER_POW2]++;
 #endif 	    
-		if (pow * BUCKETS_PER_POW2 > max_bucket)
+		if (pow * BUCKETS_PER_POW2 > (MEM_SIZE)max_bucket)
 		    max_bucket = pow * BUCKETS_PER_POW2;
 		*(cp - M_OVERHEAD) = pow * BUCKETS_PER_POW2; /* Fill index. */
 		MALLOC_UNLOCK;