diff options
| -rw-r--r-- | generic/tclAlloc.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c index ff04c2b..f5fe3ee 100644 --- a/generic/tclAlloc.c +++ b/generic/tclAlloc.c @@ -877,7 +877,14 @@ TclpRealloc( blockPtr->reqSize = newSize; #if RCHECK ((unsigned char *)(ptr))[newSize] = MAGIC; -#endif +#endif +#ifdef ZIPPY_STATS + { + Cache *cachePtr; + GETCACHE(cachePtr); + cachePtr->buckets[bucket].totalAssigned += (newSize - oldSize); + } +#endif return newSize; } |