Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Revise last fix. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d7448b047eee2d20c95c0d381282041d |
| User & Date: | dgp 2011-04-25 12:49:53 |
Context
|
2011-04-25
| ||
| 15:49 | merge mark check-in: 3f3cd0b0c2 user: dgp tags: trunk | |
| 12:49 | Revise last fix. check-in: d7448b047e user: dgp tags: trunk | |
|
2011-04-24
| ||
| 19:26 | Fix compilation warning in TclListObj - printf format mismatch check-in: 3e2ab34dea user: venkat tags: trunk | |
Changes
Changes to generic/tclListObj.c.
| ︙ | ︙ | |||
95 96 97 98 99 100 101 |
}
return NULL;
}
listRepPtr = attemptckalloc(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj*)));
if (listRepPtr == NULL) {
if (p) {
| | | | 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
}
return NULL;
}
listRepPtr = attemptckalloc(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj*)));
if (listRepPtr == NULL) {
if (p) {
Tcl_Panic("list creation failed: unable to alloc %u bytes",
(unsigned)(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))));
}
return NULL;
}
listRepPtr->canonicalFlag = 0;
listRepPtr->refCount = 0;
listRepPtr->maxElemCount = objc;
|
| ︙ | ︙ | |||
158 159 160 161 162 163 164 |
if (interp != NULL && listRepPtr == NULL) {
if (objc > LIST_MAX) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"max length of a Tcl list (%d elements) exceeded",
LIST_MAX));
} else {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
| | | | 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
if (interp != NULL && listRepPtr == NULL) {
if (objc > LIST_MAX) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"max length of a Tcl list (%d elements) exceeded",
LIST_MAX));
} else {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"list creation failed: unable to alloc %u bytes",
(unsigned)(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)))));
}
Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
}
return listRepPtr;
}
/*
|
| ︙ | ︙ |