diff options
| author | mig <mig> | 2011-03-18 19:18:36 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-18 19:18:36 (GMT) |
| commit | 5d469a215fdc4fdb33b70cbd29969293680963e5 (patch) | |
| tree | 576a3414f28d4f8dd8262572a8d0e0e64ed73b89 | |
| parent | 0c6e7852c9f3570adf39a45c72ad1e0b9850b470 (diff) | |
| download | tcl-5d469a215fdc4fdb33b70cbd29969293680963e5.zip tcl-5d469a215fdc4fdb33b70cbd29969293680963e5.tar.gz tcl-5d469a215fdc4fdb33b70cbd29969293680963e5.tar.bz2 | |
let TclAllocMaximize maintain zippys stats
| -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; } |