diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:30:29 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:30:29 (GMT) |
commit | 03a4436237ea997e7a2992ca80c54848cefdb213 (patch) | |
tree | 3d954db33d5a0bb6c4e28ca3a187bccbb1b32d91 /generic/tclBasic.c | |
parent | e52e074e4f028efd84c0fd8e54af331c55bf820c (diff) | |
download | tcl-03a4436237ea997e7a2992ca80c54848cefdb213.zip tcl-03a4436237ea997e7a2992ca80c54848cefdb213.tar.gz tcl-03a4436237ea997e7a2992ca80c54848cefdb213.tar.bz2 |
Streamline TclOO object cleanup routines.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5000821..7b9db33 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3136,6 +3136,8 @@ Tcl_DeleteCommandFromToken( */ cmdPtr->nsPtr->refCount++; + + cmdPtr->nsPtr->refCount++; if (cmdPtr->tracePtr != NULL) { CommandTrace *tracePtr; CallCommandTraces(iPtr,cmdPtr,NULL,NULL,TCL_TRACE_DELETE); |