This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix malloc.c warning
authorJerry D. Hedden <jdhedden@cpan.org>
Mon, 23 Jun 2008 09:41:11 +0000 (05:41 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 23 Jun 2008 14:10:16 +0000 (14:10 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510806230641x37afed4bla697e381b3ba9d6d@mail.gmail.com>

p4raw-id: //depot/perl@34078

malloc.c

index df199c6..bfa4cec 100644 (file)
--- 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;