summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-01-31 09:19:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-01-31 09:19:11 (GMT)
commiteda259d471f64cbaaad3d7cf2dd4da598deaaf37 (patch)
treed29d851223119f25d98bac24aa4fc9513d4dc9f6
parent80bdac638f70161325f8c5475430cdf781a4b580 (diff)
parent81e405a16c6eff768e23d1c43c292e4875b86a16 (diff)
downloadtcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.zip
tcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.tar.gz
tcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.tar.bz2
Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ?
-rw-r--r--generic/tclExecute.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 6749120..e8bc903 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -9579,10 +9579,12 @@ IllegalExprOperandType(
ClientData ptr;
int type;
const unsigned char opcode = *pc;
- const char *description, *operator = operatorStrings[opcode - INST_LOR];
+ const char *description, *operator = "unknown";
if (opcode == INST_EXPON) {
operator = "**";
+ } else if (opcode <= INST_STR_NEQ) {
+ operator = operatorStrings[opcode - INST_LOR];
}
if (GetNumberFromObj(NULL, opndPtr, &ptr, &type) != TCL_OK) {