Tcl Source Code

Check-in [a8e210ca62]
Login

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: a8e210ca62037bbf4065ea68b7818ae7aa5cbd79
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclListObj.c.

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 %lu bytes",
		    (unsigned long) (sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))));
	}
	return NULL;
    }

    listRepPtr->canonicalFlag = 0;
    listRepPtr->refCount = 0;
    listRepPtr->maxElemCount = objc;







|
|







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
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 %lu bytes",
		    (unsigned long) (sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)))));
	}
    }
    return listRepPtr;
}

/*
 *----------------------------------------------------------------------







|
|







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;
}

/*
 *----------------------------------------------------------------------