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); } |