From 060fd2cde91e18a0c1277d336f092cb708b48659 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Mon, 21 Mar 2011 11:42:06 +0000
Subject: small opts

---
 generic/tclAlloc.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c
index 9c0ab02..e641e97 100644
--- a/generic/tclAlloc.c
+++ b/generic/tclAlloc.c
@@ -628,7 +628,6 @@ TclpAlloc(
      * allocating more blocks if necessary.
      */
 
-    blockPtr = NULL;
     size = reqSize + OFFSET;
 #if RCHECK
     size++;
@@ -642,6 +641,7 @@ TclpAlloc(
 	}
 #endif
     } else {
+	blockPtr = NULL;
 	bucket = 0;
 	while (bucketInfo[bucket].blockSize < size) {
 	    bucket++;
@@ -655,9 +655,9 @@ TclpAlloc(
 	    cachePtr->buckets[bucket].totalAssigned += reqSize;
 #endif
 	}
-    }
-    if (blockPtr == NULL) {
-	return NULL;
+	if (blockPtr == NULL) {
+	    return NULL;
+	}
     }
     return Block2Ptr(blockPtr, bucket, reqSize);
 }
@@ -694,7 +694,9 @@ TclpFree(
 	return free((char *) ptr);
     }
 
+#ifdef ZIPPY_STATS
     GETCACHE(cachePtr);
+#endif
 
     /*
      * Get the block back from the user pointer and call system free directly
@@ -712,6 +714,10 @@ TclpFree(
 	return;
     }
 
+#ifndef ZIPPY_STATS
+    GETCACHE(cachePtr);
+#endif
+
 #ifdef ZIPPY_STATS
     cachePtr->buckets[bucket].totalAssigned -= blockPtr->reqSize;
 #endif
-- 
cgit v0.12