diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-21 23:55:12 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-21 23:55:12 (GMT) |
| commit | ac8ac73e77b6dd4d81b5ff1d2bc9b5d9dd23e576 (patch) | |
| tree | 00d2bd0c27efb6faa9c1e3d9df18eb14d0362231 | |
| parent | 4f5ae9bf24ee4d8e6a6ef358b0e0b8de76968a2e (diff) | |
| download | tcl-ac8ac73e77b6dd4d81b5ff1d2bc9b5d9dd23e576.zip tcl-ac8ac73e77b6dd4d81b5ff1d2bc9b5d9dd23e576.tar.gz tcl-ac8ac73e77b6dd4d81b5ff1d2bc9b5d9dd23e576.tar.bz2 | |
Remove unneeded Tcl_IncrRefCount and TclDecrRefCount. TclPtrSetVarIdx takes
ownership of newValuePtr if its refCount is 0, and either stores or frees it.
| -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: |