Differences From Artifact [6a72b407df]:

• File generic/tclCompExpr.c — part of check-in [3a393d295a] at 2013-06-12 10:35:08 on branch novem — merge trunk (except for disabled MSVC warnings, see [48b92a6ab6]) (user: jan.nijtmans size: 84347) [more...]

To Artifact [9638a6a1b6]:

• File generic/tclCompExpr.c — part of check-in [e100908f94] at 2013-06-27 09:53:04 on branch novem — merge trunk. Remove Tcl_SetPanicProc from stub table; it is meant to be called by embedders, before the stub table is even initialized. (user: jan.nijtmans size: 84311) [more...]

2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497

		TclEmitPush(TclAddLiteralObj(envPtr, literal, NULL), envPtr);
	    }
	    (*litObjvPtr)++;
	    break;
	}
	case OT_TOKENS:
	    TclCompileTokens(interp, tokenPtr+1, tokenPtr->numComponents,
		    envPtr);
	    tokenPtr += tokenPtr->numComponents + 1;
	    break;
	default:
	    if (optimize && nodes[next].constant) {
		Tcl_InterpState save = Tcl_SaveInterpState(interp, TCL_OK);

		if (ExecConstantExprTree(interp, nodes, next, litObjvPtr)

|
<

2482
2483
2484
2485
2486
2487
2488
2489

2490
2491
2492
2493
2494
2495
2496

		TclEmitPush(TclAddLiteralObj(envPtr, literal, NULL), envPtr);
	    }
	    (*litObjvPtr)++;
	    break;
	}
	case OT_TOKENS:
	    CompileTokens(envPtr, tokenPtr, interp);

	    tokenPtr += tokenPtr->numComponents + 1;
	    break;
	default:
	    if (optimize && nodes[next].constant) {
		Tcl_InterpState save = Tcl_SaveInterpState(interp, TCL_OK);

		if (ExecConstantExprTree(interp, nodes, next, litObjvPtr)