diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-07 19:50:02 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-07 19:50:02 (GMT) |
| commit | 1d9f88074f824a962f99296d5aefece2fa918a99 (patch) | |
| tree | 8647badfab5e8f315aa0deedcc33bc211af39021 /generic/tclEnsemble.c | |
| parent | fc2bc121acb78c5544d30d1e7ceb507397fe3e78 (diff) | |
| download | tcl-1d9f88074f824a962f99296d5aefece2fa918a99.zip tcl-1d9f88074f824a962f99296d5aefece2fa918a99.tar.gz tcl-1d9f88074f824a962f99296d5aefece2fa918a99.tar.bz2 | |
Missed a cleanup line, which created a memleak.dgp_ecr
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 1 |
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); } |