diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-20 19:42:23 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-20 19:42:23 (GMT) |
commit | 6a1b394c2da63d8204ce3121cd7c3992095ed39c (patch) | |
tree | cd552820b4d7b29c631e4c5b3227f86ee27232a0 /generic | |
parent | b9e23e625db49329730aee16e407dcb2929a5160 (diff) | |
parent | 2f8cb2ab854a2e311b49c8276bb59a76adaeafeb (diff) | |
download | tcl-6a1b394c2da63d8204ce3121cd7c3992095ed39c.zip tcl-6a1b394c2da63d8204ce3121cd7c3992095ed39c.tar.gz tcl-6a1b394c2da63d8204ce3121cd7c3992095ed39c.tar.bz2 |
[6bdadfba7d] Stop crash with multi-lappend and failing writes
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclExecute.c | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 91c6a42..484efe0 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3482,31 +3482,36 @@ TEBCresume( { int createdNewObj = 0; + Tcl_Obj *valueToAssign; if (!objResultPtr) { - objResultPtr = valuePtr; + valueToAssign = valuePtr; } else if (TclListObjLength(interp, objResultPtr, &len)!=TCL_OK) { TRACE_ERROR(interp); goto gotError; } else { if (Tcl_IsShared(objResultPtr)) { - objResultPtr = Tcl_DuplicateObj(objResultPtr); + valueToAssign = Tcl_DuplicateObj(objResultPtr); createdNewObj = 1; + } else { + valueToAssign = objResultPtr; } - if (Tcl_ListObjReplace(interp, objResultPtr, len,0, objc,objv) - != TCL_OK) { + if (Tcl_ListObjReplace(interp, valueToAssign, len, 0, + objc, objv) != TCL_OK) { + if (createdNewObj) { + TclDecrRefCount(valueToAssign); + } goto errorInLappendListPtr; } } DECACHE_STACK_INFO(); + Tcl_IncrRefCount(valueToAssign); objResultPtr = TclPtrSetVarIdx(interp, varPtr, arrayPtr, part1Ptr, - part2Ptr, objResultPtr, TCL_LEAVE_ERR_MSG, opnd); + part2Ptr, valueToAssign, TCL_LEAVE_ERR_MSG, opnd); + TclDecrRefCount(valueToAssign); CACHE_STACK_INFO(); if (!objResultPtr) { errorInLappendListPtr: - if (createdNewObj) { - TclDecrRefCount(objResultPtr); - } TRACE_ERROR(interp); goto gotError; } |