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 | 767efbf47855d7873ba1dfdf48f9655f805aa270 (patch) | |
| tree | d29d851223119f25d98bac24aa4fc9513d4dc9f6 | |
| parent | a92cc7b3402673cd9f24a9433afb2cc07e182550 (diff) | |
| parent | b4b95b976a89e0af53c6f50373053e40a779adbd (diff) | |
| download | tcl-767efbf47855d7873ba1dfdf48f9655f805aa270.zip tcl-767efbf47855d7873ba1dfdf48f9655f805aa270.tar.gz tcl-767efbf47855d7873ba1dfdf48f9655f805aa270.tar.bz2 | |
Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ?
| -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) { |