Tcl Source Code

Check-in [bca1b5c18a]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:amend to [58716e0e92]: now the duplication is really pointless, so eliminated
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: bca1b5c18ab5b74537a359df5261aac0345f46134c6dd2e7a45a1aead6476f82
User & Date: sebres 2018-03-07 15:10:44
Context
2018-03-09
22:18
[db36fa5122] Upgrade the index value parsing and encoding machinery. Refactor many systems to make c... check-in: 71c0a83836 user: dgp tags: core-8-6-branch
20:58
merge 8.6 check-in: c6324a5f20 user: dgp tags: bug-db36fa5122
2018-03-07
21:21
Merge 8.6 check-in: 655a7278ed user: jan.nijtmans tags: core-8-branch
15:10
amend to [58716e0e92]: now the duplication is really pointless, so eliminated check-in: bca1b5c18a user: sebres tags: core-8-6-branch
14:16
Remove pointless duplication. check-in: 58716e0e92 user: dgp tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclListObj.c.

1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
	return TclLindexFlat(interp, listPtr, 1, &argPtr);
    }

    {
	int indexCount = -1;		/* Size of the array of list indices. */
	Tcl_Obj **indices = NULL; 	/* Array of list indices. */

	Tcl_ListObjGetElements(NULL, indexListCopy, &indexCount, &indices);
	listPtr = TclLindexFlat(interp, listPtr, indexCount, indices);
    }
    Tcl_DecrRefCount(indexListCopy);
    return listPtr;
}
 
/*






|







1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
	return TclLindexFlat(interp, listPtr, 1, &argPtr);
    }

    {
	int indexCount = -1;		/* Size of the array of list indices. */
	Tcl_Obj **indices = NULL; 	/* Array of list indices. */

	TclListObjGetElements(NULL, indexListCopy, &indexCount, &indices);
	listPtr = TclLindexFlat(interp, listPtr, indexCount, indices);
    }
    Tcl_DecrRefCount(indexListCopy);
    return listPtr;
}
 
/*