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 | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
a8e210ca62037bbf4065ea68b7818ae7 |
User & Date: | dgp 2011-04-25 12:48:38 |
Context
2011-04-26
| ||
19:17 | struct _stat64 -> struct __stat64 on AMD64 check-in: 5386706f58 user: jan tags: core-8-5-branch | |
2011-04-25
| ||
15:49 | merge mark check-in: 3f3cd0b0c2 user: dgp tags: trunk | |
12:48 | Revise last fix. check-in: a8e210ca62 user: dgp tags: core-8-5-branch | |
2011-04-24
| ||
19:19 | Fix compilation warning in TclListObj - printf format mismatch check-in: 7fabe333b9 user: venkat tags: core-8-5-branch | |
Changes
Changes to generic/tclListObj.c.
︙ | ︙ | |||
96 97 98 99 100 101 102 | return NULL; } listRepPtr = (List *) attemptckalloc(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))); if (listRepPtr == NULL) { if (p) { | | | | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | return NULL; } listRepPtr = (List *) 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; |
︙ | ︙ | |||
159 160 161 162 163 164 165 | 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( | | | | 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 | 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 *))))); } } return listRepPtr; } /* *---------------------------------------------------------------------- |
︙ | ︙ |