diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-30 21:41:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-06-30 21:41:18 (GMT) |
| commit | 27ce2290a6e107aa7e2b8a5995fa32e32106546c (patch) | |
| tree | d4a008c1cca0c1d8fb3f5fc7c741217ebb7534be /generic/tclExecute.c | |
| parent | c2ea0fbc1bd362371328c20f5408e45ec4f7770c (diff) | |
| download | tcl-27ce2290a6e107aa7e2b8a5995fa32e32106546c.zip tcl-27ce2290a6e107aa7e2b8a5995fa32e32106546c.tar.gz tcl-27ce2290a6e107aa7e2b8a5995fa32e32106546c.tar.bz2 | |
Consistancy in refcount management.
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); } } |