summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-07-12 15:51:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-07-12 15:51:07 (GMT)
commitab10db7f7cc5c8ab1e1716443f808e4d99f1f8ef (patch)
tree82d95fc8154cecbe835ac0b50b7c038cc24c2d90
parentff18e6785fda0ce090fefdcb52c03a8be6e3be40 (diff)
parent233554d0cc6171760f505761be59c1007f34e7d8 (diff)
downloadtcl-ab10db7f7cc5c8ab1e1716443f808e4d99f1f8ef.zip
tcl-ab10db7f7cc5c8ab1e1716443f808e4d99f1f8ef.tar.gz
tcl-ab10db7f7cc5c8ab1e1716443f808e4d99f1f8ef.tar.bz2
merge to trunk
-rw-r--r--generic/tclCkalloc.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c
index 056841d..5b5a0d6 100644
--- a/generic/tclCkalloc.c
+++ b/generic/tclCkalloc.c
@@ -185,9 +185,9 @@ TclDumpMemoryInfo(ClientData clientData, int flags)
total_mallocs,
total_frees,
current_malloc_packets,
- current_bytes_malloced,
+ (unsigned long)current_bytes_malloced,
maximum_malloc_packets,
- maximum_bytes_malloced);
+ (unsigned long)maximum_bytes_malloced);
if (flags == 0) {
fprintf((FILE *)clientData, "%s", buf);
} else {
@@ -852,9 +852,9 @@ MemoryCmd(
"%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10lu\n%-25s %10d\n%-25s %10lu\n",
"total mallocs", total_mallocs, "total frees", total_frees,
"current packets allocated", current_malloc_packets,
- "current bytes allocated", current_bytes_malloced,
+ "current bytes allocated", (unsigned long)current_bytes_malloced,
"maximum packets allocated", maximum_malloc_packets,
- "maximum bytes allocated", maximum_bytes_malloced));
+ "maximum bytes allocated", (unsigned long)maximum_bytes_malloced));
return TCL_OK;
}
if (strcmp(argv[1],"init") == 0) {