summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-28 14:29:01 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-28 14:29:01 (GMT)
commit03f2ab38fee4863f2ea67292b07ca9cc56ddee48 (patch)
tree0a9a8155023e8b2e469c938479d9d7100c979cff
parent9eb03d3c23ab2d942ace763871d1674f3884ea9a (diff)
downloadtcl-03f2ab38fee4863f2ea67292b07ca9cc56ddee48.zip
tcl-03f2ab38fee4863f2ea67292b07ca9cc56ddee48.tar.gz
tcl-03f2ab38fee4863f2ea67292b07ca9cc56ddee48.tar.bz2
Plug the memory leak. Greater ambitions to improve this routine are proving
more difficult than expected.
-rw-r--r--generic/tclCompCmds.c1
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;
}
/*