Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Silence compiler warnings. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
76fb8681298d3147b6405622fae254dc |
| User & Date: | dgp 2014-01-21 18:16:37 |
Context
|
2014-01-24
| ||
| 21:45 | In WriteChars(), eliminate the copy step through a staging buffer when it is not required for channe... check-in: 01ff1f0a45 user: dgp tags: core-8-5-branch | |
| 17:38 | Eliminate the copy to a staging buffer when that serves no functional purpose. check-in: 68c21e5139 user: dgp tags: dgp-optimize-output-stage | |
|
2014-01-21
| ||
| 21:32 | Backport of bytearray append machinery to support bug fixes in ReadBytes. check-in: 9e237cce30 user: dgp tags: dgp-read-bytes | |
| 18:17 | merge mark check-in: 345437b24b user: dgp tags: trunk | |
| 18:16 | Silence compiler warnings. check-in: 76fb868129 user: dgp tags: core-8-5-branch | |
|
2013-11-24
| ||
| 18:34 | [a122627849] Improve stack trace from parray on not-array. check-in: 2c4acdb880 user: dkf tags: core-8-5-branch | |
Changes
Changes to generic/tclListObj.c.
| ︙ | ︙ | |||
1027 1028 1029 1030 1031 1032 1033 |
TclLindexList(
Tcl_Interp *interp, /* Tcl interpreter. */
Tcl_Obj *listPtr, /* List being unpacked. */
Tcl_Obj *argPtr) /* Index or index list. */
{
int index; /* Index into the list. */
| | | | 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 |
TclLindexList(
Tcl_Interp *interp, /* Tcl interpreter. */
Tcl_Obj *listPtr, /* List being unpacked. */
Tcl_Obj *argPtr) /* Index or index list. */
{
int index; /* Index into the list. */
Tcl_Obj **indices = NULL; /* Array of list indices. */
int indexCount = -1; /* Size of the array of list indices. */
Tcl_Obj *indexListCopy;
/*
* Determine whether argPtr designates a list or a single index. We have
* to be careful about the order of the checks to avoid repeated
* shimmering; see TIP#22 and TIP#33 for the details.
*/
|
| ︙ | ︙ | |||
1113 1114 1115 1116 1117 1118 1119 |
* represent the indices in the list. */
{
int i;
Tcl_IncrRefCount(listPtr);
for (i=0 ; i<indexCount && listPtr ; i++) {
| | | | 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 |
* represent the indices in the list. */
{
int i;
Tcl_IncrRefCount(listPtr);
for (i=0 ; i<indexCount && listPtr ; i++) {
int index, listLen = 0;
Tcl_Obj **elemPtrs = NULL, *sublistCopy;
/*
* Here we make a private copy of the current sublist, so we avoid any
* shimmering issues that might invalidate the elemPtr array below
* while we are still using it. See test lindex-8.4.
*/
|
| ︙ | ︙ | |||
1199 1200 1201 1202 1203 1204 1205 |
Tcl_Obj *
TclLsetList(
Tcl_Interp *interp, /* Tcl interpreter. */
Tcl_Obj *listPtr, /* Pointer to the list being modified. */
Tcl_Obj *indexArgPtr, /* Index or index-list arg to 'lset'. */
Tcl_Obj *valuePtr) /* Value arg to 'lset'. */
{
| | | | 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 |
Tcl_Obj *
TclLsetList(
Tcl_Interp *interp, /* Tcl interpreter. */
Tcl_Obj *listPtr, /* Pointer to the list being modified. */
Tcl_Obj *indexArgPtr, /* Index or index-list arg to 'lset'. */
Tcl_Obj *valuePtr) /* Value arg to 'lset'. */
{
int indexCount = 0; /* Number of indices in the index list. */
Tcl_Obj **indices = NULL; /* Vector of indices in the index list. */
Tcl_Obj *retValuePtr; /* Pointer to the list to be returned. */
int index; /* Current index in the list - discarded. */
Tcl_Obj *indexListCopy;
/*
* Determine whether the index arg designates a list or a single index.
* We have to be careful about the order of the checks to avoid repeated
|
| ︙ | ︙ |