summaryrefslogtreecommitdiffstats
path: root/generic/tclListObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclListObj.c')
-rw-r--r--generic/tclListObj.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index e7d78bf..1849319 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -100,8 +100,8 @@ NewListIntRep(
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 *))));
+ Tcl_Panic("list creation failed: unable to alloc %u bytes",
+ (unsigned)(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))));
}
return NULL;
}
@@ -163,8 +163,8 @@ AttemptNewList(
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 *)))));
+ "list creation failed: unable to alloc %u bytes",
+ (unsigned)(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)))));
}
}
return listRepPtr;