diff options
author | dgp <dgp@noemail.net> | 2011-07-12 15:51:07 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-07-12 15:51:07 (GMT) |
commit | ac40d750761f70590b71f0032ecadb58547025f3 (patch) | |
tree | 82d95fc8154cecbe835ac0b50b7c038cc24c2d90 /generic/tclCkalloc.c | |
parent | b84065edf79acf5dab0b6e35e8e24e7c4c918071 (diff) | |
parent | 25e22815475a5f2f17705c777d56dc1fbb747b5b (diff) | |
download | tcl-ac40d750761f70590b71f0032ecadb58547025f3.zip tcl-ac40d750761f70590b71f0032ecadb58547025f3.tar.gz tcl-ac40d750761f70590b71f0032ecadb58547025f3.tar.bz2 |
merge to trunk
FossilOrigin-Name: ad32aec14b5bb3498b26439e35751d2829f3cba2
Diffstat (limited to 'generic/tclCkalloc.c')
-rw-r--r-- | generic/tclCkalloc.c | 8 |
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) { |