diff options
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 97122b9..a2578e4 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3444,10 +3444,8 @@ TEBCresume( } } DECACHE_STACK_INFO(); - Tcl_IncrRefCount(valueToAssign); objResultPtr = TclPtrSetVarIdx(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, valueToAssign, TCL_LEAVE_ERR_MSG, opnd); - TclDecrRefCount(valueToAssign); CACHE_STACK_INFO(); if (!objResultPtr) { errorInLappendListPtr: |