diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:34:49 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 09:34:49 (GMT) |
| commit | e16817b40903d522f5a911fde6e1640321e94e26 (patch) | |
| tree | 5af11edf173ed20b90a23ae301b0acb9f8448311 /generic/tclBasic.c | |
| parent | 03a4436237ea997e7a2992ca80c54848cefdb213 (diff) | |
| download | tcl-e16817b40903d522f5a911fde6e1640321e94e26.zip tcl-e16817b40903d522f5a911fde6e1640321e94e26.tar.gz tcl-e16817b40903d522f5a911fde6e1640321e94e26.tar.bz2 | |
Add the check for wrong arguments back to TclOO_Object_Destroy, remove
inadvertant increment of Namespace->refCount.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 7b9db33..3fb099b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3137,7 +3137,6 @@ Tcl_DeleteCommandFromToken( cmdPtr->nsPtr->refCount++; - cmdPtr->nsPtr->refCount++; if (cmdPtr->tracePtr != NULL) { CommandTrace *tracePtr; CallCommandTraces(iPtr,cmdPtr,NULL,NULL,TCL_TRACE_DELETE); |