Check-in [0b5fb73910]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
SHA1 Hash:0b5fb7391043a56d093e2e24c18c1ac9c0722506
Date: 2014-01-31 09:19:11
User: jan.nijtmans
Comment:Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ?
Tags And Properties
Context
2014-02-02
16:01
[f74647ceeb] add compilation of [string is] (user: dkf, tags: trunk)
2014-01-31
09:26
[9cbf304e98] merge trunk (user: jan.nijtmans, tags: novem)
09:19
[0b5fb73910] Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? (user: jan.nijtmans, tags: trunk)
09:13
[f6a2f50eb8] Fix [4b3b7a3082]: tcl8.5.15/generic/tclExecute.c:7713: array index before sanity check ? (user: jan.nijtmans, tags: core-8-5-branch)
2014-01-30
14:51
[f5f5df0f00] Eliminate the use of a staging buffer in WriteChars(). (user: dgp, tags: trunk)
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclExecute.c

9575
9576
9577
9578
9579
9580
9581
9582
9583
9584
9585


9586
9587
9588
9589
9590
9591
9592
				 * 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 = operatorStrings[opcode - INST_LOR];

    if (opcode == INST_EXPON) {
	operator = "**";


    }

    if (GetNumberFromObj(NULL, opndPtr, &ptr, &type) != TCL_OK) {
	int numBytes;
	const char *bytes = Tcl_GetStringFromObj(opndPtr, &numBytes);

	if (numBytes == 0) {







|



>
>







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) {