diff options
author | Joe Mistachkin <joe@mistachkin.com> | 2015-05-17 19:49:44 (GMT) |
---|---|---|
committer | Joe Mistachkin <joe@mistachkin.com> | 2015-05-17 19:49:44 (GMT) |
commit | 2c15b241eada4c3508f40bc48287bfc3617bbd76 (patch) | |
tree | 2905f9e58003ed85727b6c497ff9b87b5b09d37b /generic/tclInt.h | |
parent | 797f5c18a178ccf6347e2f64c565216353e9e255 (diff) | |
parent | 25217a3ed35a8e8d7a9b5fd1c79a84ffbca0164b (diff) | |
download | tcl-2c15b241eada4c3508f40bc48287bfc3617bbd76.zip tcl-2c15b241eada4c3508f40bc48287bfc3617bbd76.tar.gz tcl-2c15b241eada4c3508f40bc48287bfc3617bbd76.tar.bz2 |
Merge updates from trunk.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index bcf2355..51d153b 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4118,7 +4118,8 @@ MODULE_SCOPE void TclpFreeAllocCache(void *); AllocCache *cachePtr; \ if (((interp) == NULL) || \ ((cachePtr = ((Interp *)(interp))->allocCache), \ - (cachePtr->numObjects >= ALLOC_NOBJHIGH))) { \ + ((cachePtr->numObjects == 0) || \ + (cachePtr->numObjects >= ALLOC_NOBJHIGH)))) { \ TclThreadFreeObj(objPtr); \ } else { \ (objPtr)->internalRep.twoPtrValue.ptr1 = cachePtr->firstObjPtr; \ |