Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge trunk |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | novem |
| Files: | files | file ages | folders |
| SHA1: |
d53d72ddfbcdc05cd440b7cc7546baa1 |
| User & Date: | jan.nijtmans 2012-12-29 09:24:59 |
Context
|
2012-12-29
| ||
| 15:24 | fix tm.tcl to include tcl8 locations, and fix corresponding test-cases check-in: c2a6bd5d9e user: jan.nijtmans tags: novem | |
| 09:24 | merge trunk check-in: d53d72ddfb user: jan.nijtmans tags: novem | |
| 09:23 | restore refcounts as they were before the Tcl_ListObjReplace call, in the error situation. In Tcl9,... check-in: f83c3f4bad user: jan.nijtmans tags: trunk | |
|
2012-12-27
| ||
| 15:05 | merge trunk check-in: 721001a95f user: jan.nijtmans tags: novem | |
Changes
Changes to generic/tclListObj.c.
| ︙ | ︙ | |||
963 964 965 966 967 968 969 970 971 972 973 974 975 976 |
+ TCL_MIN_ELEMENT_GROWTH;
int growth = (int) ((extra > limit) ? limit : extra);
listRepPtr = AttemptNewList(NULL, numRequired + growth, NULL);
if (listRepPtr == NULL) {
listRepPtr = AttemptNewList(interp, numRequired, NULL);
if (listRepPtr == NULL) {
return TCL_ERROR;
}
}
}
listPtr->internalRep.twoPtrValue.ptr1 = listRepPtr;
listRepPtr->refCount++;
| > > > > | 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 |
+ TCL_MIN_ELEMENT_GROWTH;
int growth = (int) ((extra > limit) ? limit : extra);
listRepPtr = AttemptNewList(NULL, numRequired + growth, NULL);
if (listRepPtr == NULL) {
listRepPtr = AttemptNewList(interp, numRequired, NULL);
if (listRepPtr == NULL) {
for (i = 0; i < objc; i++) {
/* See bug 3598580 */
Tcl_DecrRefCount(objv[i]);
}
return TCL_ERROR;
}
}
}
listPtr->internalRep.twoPtrValue.ptr1 = listRepPtr;
listRepPtr->refCount++;
|
| ︙ | ︙ |