summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorvenkat <venkat@comit.com>2011-04-24 19:19:25 (GMT)
committervenkat <venkat@comit.com>2011-04-24 19:19:25 (GMT)
commit32b64b841237cf655b5b71cca042b1d088761747 (patch)
tree200fdf83f992b6529bcf3e95d7574791f3d055bd
parent869f829101ea038744766b33e8a5d362f1cf21ee (diff)
downloadtcl-32b64b841237cf655b5b71cca042b1d088761747.zip
tcl-32b64b841237cf655b5b71cca042b1d088761747.tar.gz
tcl-32b64b841237cf655b5b71cca042b1d088761747.tar.bz2
Fix compilation warning in TclListObj - printf format mismatch
-rw-r--r--generic/tclListObj.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index b269607..e7d78bf 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 %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;
}
@@ -163,8 +163,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 *)))));
}
}
return listRepPtr;