diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-28 07:14:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-28 07:14:47 (GMT) |
commit | eb03584c16b7a1b99800e60e00ed43a73745b2d2 (patch) | |
tree | c8615f6d94788032577b2ee328c3282189d15257 /generic/tclAlloc.c | |
parent | dd5e309d31bb30abe115dd2a7e614dcbde7b76fe (diff) | |
download | tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.zip tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.tar.gz tcl-eb03584c16b7a1b99800e60e00ed43a73745b2d2.tar.bz2 |
(experimental) new internal macro TCL_Z_MODIFIER, just like TCL_LL_MODIFIER but then for size_t.
Diffstat (limited to 'generic/tclAlloc.c')
-rw-r--r-- | generic/tclAlloc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c index 64df1a2..fbd8f6e 100644 --- a/generic/tclAlloc.c +++ b/generic/tclAlloc.c @@ -661,14 +661,14 @@ mstats( fprintf(stderr, "\nused:\t"); for (i = 0; i < NBUCKETS; i++) { - fprintf(stderr, " %" TCL_LL_MODIFIER "d", (Tcl_WideInt)numMallocs[i]); + fprintf(stderr, " %" TCL_Z_MODIFIER "d", numMallocs[i]); totalUsed += numMallocs[i] * (1 << (i + 3)); } - fprintf(stderr, "\n\tTotal small in use: %" TCL_LL_MODIFIER "d, total free: %" TCL_LL_MODIFIER "d\n", - (Tcl_WideInt)totalUsed, (Tcl_WideInt)totalFree); - fprintf(stderr, "\n\tNumber of big (>%d) blocks in use: %" TCL_LL_MODIFIER "d\n", - MAXMALLOC, (Tcl_WideInt)numMallocs[NBUCKETS]); + fprintf(stderr, "\n\tTotal small in use: %" TCL_Z_MODIFIER "d, total free: %" TCL_Z_MODIFIER "d\n", + totalUsed, totalFree); + fprintf(stderr, "\n\tNumber of big (>%d) blocks in use: %" TCL_Z_MODIFIER "d\n", + MAXMALLOC, numMallocs[NBUCKETS]); Tcl_MutexUnlock(allocMutexPtr); } |