diff options
author | dgp <dgp@users.sourceforge.net> | 2021-04-03 20:21:57 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2021-04-03 20:21:57 (GMT) |
commit | 952f453bba44d28baab4aace4f3fcb25753ab22d (patch) | |
tree | 81399e9594c6d379dc2a1cc39d5ecf2608056405 /generic/tclBasic.c | |
parent | efe9cf9a790e61bda8164340c3eddfa8ae36b054 (diff) | |
parent | 8b11f08b3cb7e5e92dd7812df02e8419e49be96d (diff) | |
download | tcl-952f453bba44d28baab4aace4f3fcb25753ab22d.zip tcl-952f453bba44d28baab4aace4f3fcb25753ab22d.tar.gz tcl-952f453bba44d28baab4aace4f3fcb25753ab22d.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b90e12d..ce8c4ed 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3662,7 +3662,7 @@ CallCommandTraces( */ cmdPtr->flags &= ~CMD_TRACE_ACTIVE; - cmdPtr->refCount--; + TclCleanupCommandMacro(cmdPtr); iPtr->activeCmdTracePtr = active.nextPtr; Tcl_Release(iPtr); return result; |