From 5d469a215fdc4fdb33b70cbd29969293680963e5 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Fri, 18 Mar 2011 19:18:36 +0000
Subject: let TclAllocMaximize maintain zippys stats

---
 generic/tclAlloc.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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;
 }
 
-- 
cgit v0.12