summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-03-08 16:07:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-03-08 16:07:42 (GMT)
commit9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce (patch)
treea3b89f3d8743fcc549b1179e0277156166206aff /generic/tclExecute.c
parent989e6a53bd54006ab5d9e15bb79f67fa2e7ece22 (diff)
downloadtcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.zip
tcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.tar.gz
tcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.tar.bz2
* generic/tclExecute.c: Complete missing bit of TIP 215 implementation
* tests/incr.test:
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 6777cd2..bdd106c 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.226 2006/02/09 17:34:41 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.227 2006/03/08 16:07:42 dgp Exp $
*/
#include "tclInt.h"
@@ -2431,7 +2431,7 @@ TclExecuteByteCode(
}
TRACE(("%u \"%.30s\" (by %ld) => ", opnd, part2, i));
varPtr = TclLookupArrayElement(interp, part1, part2,
- TCL_LEAVE_ERR_MSG, "read", 0, 1, arrayPtr);
+ TCL_LEAVE_ERR_MSG, "read", 1, 1, arrayPtr);
if (varPtr == NULL) {
TRACE_APPEND(("ERROR: %.30s\n", O2S(Tcl_GetObjResult(interp))));
result = TCL_ERROR;