diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-10 19:28:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-10 19:28:57 (GMT) |
| commit | 958e525baf3292c31b387ce0306a8dc984419c6c (patch) | |
| tree | 0c53c8487b313b3d2971a182a9a8a70d31c86875 /generic/tclExecute.c | |
| parent | 8fb5d06021400779eaad6544037841320effc0cb (diff) | |
| download | tcl-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.c | 1 |
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; } |