Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0b5fb7391043a56d093e2e24c18c1ac9 |
| User & Date: | jan.nijtmans 2014-01-31 09:19:11 |
References
|
2014-01-31
| ||
| 09:17 | • Closed ticket [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? plus 7 other changes artifact: 1283f90580 user: jan.nijtmans | |
Context
|
2014-02-02
| ||
| 16:01 | add compilation of [string is] check-in: f74647ceeb user: dkf tags: trunk | |
|
2014-01-31
| ||
| 09:26 | merge trunk check-in: 9cbf304e98 user: jan.nijtmans tags: novem | |
| 09:19 | Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? check-in: 0b5fb73910 user: jan.nijtmans tags: trunk | |
| 09:13 | Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? check-in: f6a2f50eb8 user: jan.nijtmans tags: core-8-5-branch | |
|
2014-01-30
| ||
| 14:51 | Eliminate the use of a staging buffer in WriteChars(). check-in: f5f5df0f00 user: dgp tags: trunk | |
Changes
Changes to generic/tclExecute.c.
| ︙ | ︙ | |||
9575 9576 9577 9578 9579 9580 9581 |
* when the illegal type was found. */
Tcl_Obj *opndPtr) /* Points to the operand holding the value
* with the illegal type. */
{
ClientData ptr;
int type;
const unsigned char opcode = *pc;
| | > > | 9575 9576 9577 9578 9579 9580 9581 9582 9583 9584 9585 9586 9587 9588 9589 9590 9591 9592 9593 9594 |
* when the illegal type was found. */
Tcl_Obj *opndPtr) /* Points to the operand holding the value
* with the illegal type. */
{
ClientData ptr;
int type;
const unsigned char opcode = *pc;
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) {
int numBytes;
const char *bytes = Tcl_GetStringFromObj(opndPtr, &numBytes);
if (numBytes == 0) {
|
| ︙ | ︙ |