summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-07-07 19:50:02 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-07-07 19:50:02 (GMT)
commit1d9f88074f824a962f99296d5aefece2fa918a99 (patch)
tree8647badfab5e8f315aa0deedcc33bc211af39021
parentfc2bc121acb78c5544d30d1e7ceb507397fe3e78 (diff)
downloadtcl-1d9f88074f824a962f99296d5aefece2fa918a99.zip
tcl-1d9f88074f824a962f99296d5aefece2fa918a99.tar.gz
tcl-1d9f88074f824a962f99296d5aefece2fa918a99.tar.bz2
Missed a cleanup line, which created a memleak.dgp_ecr
-rw-r--r--generic/tclEnsemble.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c
index 24b6b9a..d2bd0a2 100644
--- a/generic/tclEnsemble.c
+++ b/generic/tclEnsemble.c
@@ -2384,6 +2384,7 @@ MakeCachedEnsembleCommand(
if (objPtr->typePtr == &ensembleCmdType) {
ensembleCmd = objPtr->internalRep.twoPtrValue.ptr1;
+ TclCleanupCommandMacro(ensembleCmd->token);
if (ensembleCmd->fix) {
Tcl_DecrRefCount(ensembleCmd->fix);
}