diff options
author | stanton <stanton@noemail.net> | 1998-06-18 18:24:38 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1998-06-18 18:24:38 (GMT) |
commit | de63d3d4408bdb28a54eb739afc4e6c49dabea17 (patch) | |
tree | a498a29d4fe610bf3b9802c0d4b0ad64c522d57c /generic | |
parent | e12c5d7fef0eca570db5823f43caafa605c926fd (diff) | |
download | tcl-de63d3d4408bdb28a54eb739afc4e6c49dabea17.zip tcl-de63d3d4408bdb28a54eb739afc4e6c49dabea17.tar.gz tcl-de63d3d4408bdb28a54eb739afc4e6c49dabea17.tar.bz2 |
removed dead code
FossilOrigin-Name: 01429b464a5f34c4941be83983040b02e933c59c
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c6cea08..3a75d88 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2736,9 +2736,6 @@ TclExecuteByteCode(interp, codePtr) if (oldValuePtr == NULL) { iterVarPtr->value.objPtr = Tcl_NewLongObj(-1); Tcl_IncrRefCount(iterVarPtr->value.objPtr); - if (oldValuePtr != NULL) { - Tcl_DecrRefCount(oldValuePtr); - } } else { Tcl_SetLongObj(oldValuePtr, -1); } |