Differences From Artifact [7470f5281a]:

• File generic/tclProc.c — part of check-in [9a1eac84fd] at 2013-03-08 18:49:42 on branch dgp-literal-reform — Simplify the TclCreateLiteral() interface. Save the complexity for within tclLiteral.c where it is needed. (user: dgp size: 87081) [more...]

To Artifact [b8ed45aa95]:

• File generic/tclProc.c — part of check-in [6f527b2285] at 2013-05-10 19:08:47 on branch dgp-refactor — Merge to near-trunk. (user: dgp size: 87089) [more...]

833
834
835
836
837
838
839
840
841
842
843
844
845
846
847

	    level = objPtr->internalRep.ptrAndLongRep.value;
	}
	if (level < 0) {
	    goto levelError;
	}
	/* TODO: Consider skipping the typePtr checks */
    } else if (objPtr->typePtr == &tclIntType
#ifndef NO_WIDE_TYPE
	    || objPtr->typePtr == &tclWideIntType
#endif
	    ) {
	if (TclGetIntFromObj(NULL, objPtr, &level) != TCL_OK || level < 0) {
	    goto levelError;
	}
	level = curLevel - level;

|

833
834
835
836
837
838
839
840
841
842
843
844
845
846
847

	    level = objPtr->internalRep.ptrAndLongRep.value;
	}
	if (level < 0) {
	    goto levelError;
	}
	/* TODO: Consider skipping the typePtr checks */
    } else if (objPtr->typePtr == &tclIntType
#ifndef TCL_WIDE_INT_IS_LONG
	    || objPtr->typePtr == &tclWideIntType
#endif
	    ) {
	if (TclGetIntFromObj(NULL, objPtr, &level) != TCL_OK || level < 0) {
	    goto levelError;
	}
	level = curLevel - level;