diff options
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 5b053a6..6fc6b6b 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -1649,7 +1649,7 @@ FreeExprCodeInternalRep( ByteCode *codePtr = objPtr->internalRep.twoPtrValue.ptr1; objPtr->typePtr = NULL; - if (codePtr->refCount-- < 2) { + if (codePtr->refCount-- <= 1) { TclCleanupByteCode(codePtr); } } |