diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-07-02 12:54:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-07-02 12:54:57 (GMT) |
| commit | d4d66c05ba64ebd9ae204c048eebebfd76a095c2 (patch) | |
| tree | 368c39db89288c324d774cfdfe3c9494dba33bbd /generic/tclProc.c | |
| parent | 2ee65349c997ec60a0e3def277a24c0f638fed78 (diff) | |
| download | tcl-d4d66c05ba64ebd9ae204c048eebebfd76a095c2.zip tcl-d4d66c05ba64ebd9ae204c048eebebfd76a095c2.tar.gz tcl-d4d66c05ba64ebd9ae204c048eebebfd76a095c2.tar.bz2 | |
Revert refcount changes that were not cosmetic.
Changing equality testing to inequality testing does more than make code
prettier or clearer. It makes it less strict, and thus more tolerant of
other bugs elsewhere. Such changes deserve separate consideration at least,
not breezy entry in an otherwise "code cleanup" commit.
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index a9705eb..7bf63c2 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2445,7 +2445,7 @@ FreeLambdaInternalRep( Proc *procPtr = objPtr->internalRep.twoPtrValue.ptr1; Tcl_Obj *nsObjPtr = objPtr->internalRep.twoPtrValue.ptr2; - if (procPtr->refCount-- <= 1) { + if (procPtr->refCount-- == 1) { TclProcCleanupProc(procPtr); } TclDecrRefCount(nsObjPtr); |