diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-10 19:33:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-10 19:33:46 (GMT) |
| commit | 2de34a7674bffea69b889e1326b18e442d8e8589 (patch) | |
| tree | 90edf5315f700ccc908443842aab0f3a0507c9bb /generic/tclExecute.c | |
| parent | da4f0a3cc9ce8134a629c12ce02572e0ee69bb3b (diff) | |
| parent | 958e525baf3292c31b387ce0306a8dc984419c6c (diff) | |
| download | tcl-2de34a7674bffea69b889e1326b18e442d8e8589.zip tcl-2de34a7674bffea69b889e1326b18e442d8e8589.tar.gz tcl-2de34a7674bffea69b889e1326b18e442d8e8589.tar.bz2 | |
merge 8.6
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 5c7505b..ac4076c 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; } |