summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2015-08-18 07:01:41 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2015-08-18 07:01:41 (GMT)
commit5323a387bb45cc460c950494f26fd34ac6913562 (patch)
tree12856a3e7742b744af8b870b134de44391dd91dc
parent68e5d7f9d97ea05155692dd5748468e6edbc1a63 (diff)
parent84bff4d332a394a0f08947e05e535ff4b1b2476c (diff)
downloadtcl-5323a387bb45cc460c950494f26fd34ac6913562.zip
tcl-5323a387bb45cc460c950494f26fd34ac6913562.tar.gz
tcl-5323a387bb45cc460c950494f26fd34ac6913562.tar.bz2
[7a87a9bc5b] Eliminate invalid write, found by Rolf Ade using Valgrind.
-rw-r--r--generic/tclExecute.c1
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 8ada6d2..7f65262 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -4186,7 +4186,6 @@ TEBCresume(
} else if (flags & TCL_LEAVE_ERR_MSG) {
goto slowUnsetArray;
}
- varPtr->value.objPtr = NULL;
TRACE_APPEND(("OK\n"));
NEXT_INST_F(6, 1, 0);
} else if (!varPtr && !(flags & TCL_LEAVE_ERR_MSG)) {