summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-07-10 19:28:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-07-10 19:28:57 (GMT)
commit958e525baf3292c31b387ce0306a8dc984419c6c (patch)
tree0c53c8487b313b3d2971a182a9a8a70d31c86875 /generic/tclExecute.c
parent8fb5d06021400779eaad6544037841320effc0cb (diff)
downloadtcl-958e525baf3292c31b387ce0306a8dc984419c6c.zip
tcl-958e525baf3292c31b387ce0306a8dc984419c6c.tar.gz
tcl-958e525baf3292c31b387ce0306a8dc984419c6c.tar.bz2
[96fe2f1cc7] Plug memory leak.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 52865e6..c0cbd9e 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -3168,6 +3168,7 @@ TEBCresume(
Tcl_ListObjAppendElement(NULL, copyPtr, objPtr);
Tcl_ListObjReplace(NULL, copyPtr, LIST_MAX, 0,
objc - opnd, objv + opnd);
+ Tcl_DecrRefCount(objPtr);
objPtr = copyPtr;
}