Tcl Source Code

Check-in [c2afe8e73a]
Login

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

Overview
Comment:Oops, wrong macro.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c2afe8e73ae5cce8955df7c17d23649a3887ab69
User & Date: jan.nijtmans 2013-12-06 10:17:58
Context
2013-12-06
17:46
merge trunk check-in: 5bbe184374 user: dgp tags: dgp-refactor
15:58
change NULL to INT2PTR(0), for clarity check-in: 6cfea930ff user: mig tags: trunk
14:20
merge trunk check-in: 2d5b161958 user: mig tags: mig-opt-foreach
10:17
Oops, wrong macro. check-in: c2afe8e73a user: jan.nijtmans tags: trunk
10:04
Introducing a new union member in Tcl_Obj is not a good idea in a patch release, especially using "l... check-in: e8d964a08e user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclExecute.c.

6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
	 */

	tmpPtr = OBJ_AT_TOS;
	infoPtr = tmpPtr->internalRep.otherValuePtr;
	numLists = infoPtr->numLists;

	tmpPtr = OBJ_AT_DEPTH(1);
	iterNum = INT2PTR(tmpPtr->internalRep.twoPtrValue.ptr1);
	iterMax = INT2PTR(tmpPtr->internalRep.twoPtrValue.ptr2);

	/*
	 * If some list still has a remaining list element iterate one more
	 * time. Assign to var the next element from its value list.
	 */

	if (iterNum < iterMax) {







|
|







6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
	 */

	tmpPtr = OBJ_AT_TOS;
	infoPtr = tmpPtr->internalRep.otherValuePtr;
	numLists = infoPtr->numLists;

	tmpPtr = OBJ_AT_DEPTH(1);
	iterNum = PTR2INT(tmpPtr->internalRep.twoPtrValue.ptr1);
	iterMax = PTR2INT(tmpPtr->internalRep.twoPtrValue.ptr2);

	/*
	 * If some list still has a remaining list element iterate one more
	 * time. Assign to var the next element from its value list.
	 */

	if (iterNum < iterMax) {