diff options
| author | stanton <stanton> | 1998-06-18 18:24:39 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-18 18:24:39 (GMT) |
| commit | f1072578dad2e2f6bb7dd6184d61868725552ab0 (patch) | |
| tree | a498a29d4fe610bf3b9802c0d4b0ad64c522d57c | |
| parent | b0f1b14712284a529378c8c977380cccd020b0f5 (diff) | |
| download | tcl-f1072578dad2e2f6bb7dd6184d61868725552ab0.zip tcl-f1072578dad2e2f6bb7dd6184d61868725552ab0.tar.gz tcl-f1072578dad2e2f6bb7dd6184d61868725552ab0.tar.bz2 | |
removed dead code
| -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); } |