diff options
author | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-03 12:33:58 (GMT) |
---|---|---|
committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2021-04-03 12:33:58 (GMT) |
commit | c494f8045e89b1765e8faef75b2fc169b8e70e56 (patch) | |
tree | 556189e29ee16ac31932602782e9ec74b11ccc5d | |
parent | 756e0c234a6a4f1f304b37db96f8b3980aba66fa (diff) | |
download | tcl-c494f8045e89b1765e8faef75b2fc169b8e70e56.zip tcl-c494f8045e89b1765e8faef75b2fc169b8e70e56.tar.gz tcl-c494f8045e89b1765e8faef75b2fc169b8e70e56.tar.bz2 |
Use TclCleanupCommandMacro instead of just decrementing the reference count.
-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 56356e2..e18d1b7 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3740,7 +3740,7 @@ CallCommandTraces( */ cmdPtr->flags &= ~CMD_TRACE_ACTIVE; - cmdPtr->refCount--; + TclCleanupCommandMacro(cmdPtr); iPtr->activeCmdTracePtr = active.nextPtr; Tcl_Release(iPtr); return result; |