summaryrefslogtreecommitdiffstats
path: root/generic/tclListObj.c
diff options
context:
space:
mode:
authorvenkat <venkat@comit.com>2011-04-24 19:26:19 (GMT)
committervenkat <venkat@comit.com>2011-04-24 19:26:19 (GMT)
commitb42c86276e7b3b11c994a676dd2062ca62c802b6 (patch)
tree382433949aecd7a77775fb221f6da54d5e2aede3 /generic/tclListObj.c
parent3d68e9781710f7ffb984a7e6ec2105ca91dccb92 (diff)
parent32b64b841237cf655b5b71cca042b1d088761747 (diff)
downloadtcl-b42c86276e7b3b11c994a676dd2062ca62c802b6.zip
tcl-b42c86276e7b3b11c994a676dd2062ca62c802b6.tar.gz
tcl-b42c86276e7b3b11c994a676dd2062ca62c802b6.tar.bz2
Fix compilation warning in TclListObj - printf format mismatch
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 be3e212..46e846d 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -99,8 +99,8 @@ NewListIntRep(
listRepPtr = attemptckalloc(sizeof(List) + ((objc-1) * sizeof(Tcl_Obj*)));
if (listRepPtr == NULL) {
if (p) {
- Tcl_Panic("list creation failed: unable to alloc %u bytes",
- sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)));
+ Tcl_Panic("list creation failed: unable to alloc %lu bytes",
+ (unsigned long) (sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))));
}
return NULL;
}
@@ -162,8 +162,8 @@ AttemptNewList(
LIST_MAX));
} else {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
- "list creation failed: unable to alloc %u bytes",
- sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *))));
+ "list creation failed: unable to alloc %lu bytes",
+ (unsigned long) (sizeof(List) + ((objc-1) * sizeof(Tcl_Obj *)))));
}
Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
}