Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix compilation warning in TclListObj - printf format mismatch |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3e2ab34dea7141f4312e8a13be854a33 |
| User & Date: | venkat 2011-04-24 19:26:19 |
Context
|
2011-04-25
| ||
| 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 | |
| 19:19 | Fix compilation warning in TclListObj - printf format mismatch check-in: 7fabe333b9 user: venkat tags: core-8-5-branch | |
|
2011-04-21
| ||
| 21:15 | [Bug 3288345]: Bring cygwin Tcl_StatBuf a little bit closer to reality check-in: 4bf64360a5 user: jan 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 %lu bytes",
(unsigned long) (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 %lu bytes",
(unsigned long) (sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)))));
}
Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
}
return listRepPtr;
}
/*
|
| ︙ | ︙ |