diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-01-31 09:19:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-01-31 09:19:11 (GMT) |
| commit | eda259d471f64cbaaad3d7cf2dd4da598deaaf37 (patch) | |
| tree | d29d851223119f25d98bac24aa4fc9513d4dc9f6 /generic/tclExecute.c | |
| parent | 80bdac638f70161325f8c5475430cdf781a4b580 (diff) | |
| parent | 81e405a16c6eff768e23d1c43c292e4875b86a16 (diff) | |
| download | tcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.zip tcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.tar.gz tcl-eda259d471f64cbaaad3d7cf2dd4da598deaaf37.tar.bz2 | |
Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ?
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
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) { |