diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-28 14:29:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-28 14:29:01 (GMT) |
| commit | fb728f1f539e25112b06a14ba6382e001f36e21c (patch) | |
| tree | 0a9a8155023e8b2e469c938479d9d7100c979cff | |
| parent | b3b9cb8d35e3aecf7c1121fef25a76d592102eab (diff) | |
| download | tcl-fb728f1f539e25112b06a14ba6382e001f36e21c.zip tcl-fb728f1f539e25112b06a14ba6382e001f36e21c.tar.gz tcl-fb728f1f539e25112b06a14ba6382e001f36e21c.tar.bz2 | |
Plug the memory leak. Greater ambitions to improve this routine are proving
more difficult than expected.
| -rw-r--r-- | generic/tclCompCmds.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 8c88649..a325954 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -285,6 +285,7 @@ TclCompileArraySetCmd( PushVarNameWord(interp, varTokenPtr, envPtr, TCL_NO_ELEMENT, &localIndex, &simpleVarName, &isScalar, 1); if (!isScalar) { + Tcl_DecrRefCount(literalObj); return TCL_ERROR; } /* |