Fix malloc.c warning

[perl5.git] / malloc.c

diff --git a/malloc.c b/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             
                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;
                    max_bucket = pow * BUCKETS_PER_POW2;
                *(cp - M_OVERHEAD) = pow * BUCKETS_PER_POW2; /* Fill index. */
                MALLOC_UNLOCK;