diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-12-19 16:22:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-12-19 16:22:24 (GMT) |
| commit | 77c0d1662a845a70d47d2bfbe97f8da58fbc41e1 (patch) | |
| tree | ba3ec495e8d386603c7264e401d591c9188924c4 /generic/tclProc.c | |
| parent | 8fa6374b22b79c0ad8b2ff6e59edb4357b825484 (diff) | |
| parent | ee66488c3683d1e2b6ac36f523638c42c5649433 (diff) | |
| download | tcl-77c0d1662a845a70d47d2bfbe97f8da58fbc41e1.zip tcl-77c0d1662a845a70d47d2bfbe97f8da58fbc41e1.tar.gz tcl-77c0d1662a845a70d47d2bfbe97f8da58fbc41e1.tar.bz2 | |
merge 8.7
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 f6fe4b9..e555bcc 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -2425,7 +2425,7 @@ FreeLambdaInternalRep( LambdaGetIntRep(objPtr, procPtr, nsObjPtr); assert(procPtr != NULL); - if (procPtr->refCount-- == 1) { + if (procPtr->refCount-- <= 1) { TclProcCleanupProc(procPtr); } TclDecrRefCount(nsObjPtr); |