summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2011-03-21 11:42:06 (GMT)
committermig <mig>2011-03-21 11:42:06 (GMT)
commit060fd2cde91e18a0c1277d336f092cb708b48659 (patch)
tree4d1fa69e4ed007ebd63c09c31a34e368247ad3ad /generic
parenta30d6f688d56e1735e98efee26fe094f0453cf6a (diff)
downloadtcl-060fd2cde91e18a0c1277d336f092cb708b48659.zip
tcl-060fd2cde91e18a0c1277d336f092cb708b48659.tar.gz
tcl-060fd2cde91e18a0c1277d336f092cb708b48659.tar.bz2
small opts
Diffstat (limited to 'generic')
-rw-r--r--generic/tclAlloc.c14
1 files 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