2007/10/26 Slaven Rezic <slaven@rezic.de>: > Here the revised patch: > > --- ../bleedperl-amd64/malloc.c Mon Apr 16 01:25:50 2007 > +++ ./malloc.c Fri Oct 26 16:14:10 2007 > @@ -2285,6 +2285,8 @@ Perl_realloc(void *mp, size_t nbytes) > nmalloc[bucket]--; > nmalloc[pow * BUCKETS_PER_POW2]++; > #endif > + if (pow * BUCKETS_PER_POW2 > max_bucket) > + max_bucket = pow * BUCKETS_PER_POW2; > *(cp - M_OVERHEAD) = pow * BUCKETS_PER_POW2; /* Fill index. */ > MALLOC_UNLOCK; > goto inplace_label; Thanks, applied as #34076.Thread Previous