diff options
| author | dgp@users.sourceforge.net <dgp> | 2005-09-15 16:40:02 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2005-09-15 16:40:02 (GMT) |
| commit | bd2eae84c27410f7dc0a5a6f603f3bc4df3578fd (patch) | |
| tree | 238980bfb093b32ba311f36a2774bde6bba0c4ee /generic/tclCkalloc.c | |
| parent | c2cc858b87e7584370f28c992bc7f54732bf7159 (diff) | |
| download | tcl-bd2eae84c27410f7dc0a5a6f603f3bc4df3578fd.zip tcl-bd2eae84c27410f7dc0a5a6f603f3bc4df3578fd.tar.gz tcl-bd2eae84c27410f7dc0a5a6f603f3bc4df3578fd.tar.bz2 | |
* generic/tclBasic.c: More callers of TclObjPrintf and
* generic/tclCkalloc.c: TclFormatToErrorInfo.
* generic/tclCmdMZ.c:
* generic/tclExecute.c:
* generic/tclIORChan.c:
* generic/tclMain.c:
* generic/tclProc.c:
* generic/tclTimer.c:
* generic/tclUtil.c:
* unix/tclUnixFCmd.c
* unix/configure: autoconf-2.59
Diffstat (limited to 'generic/tclCkalloc.c')
| -rw-r--r-- | generic/tclCkalloc.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 43e0862..e3eea4e 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -14,7 +14,7 @@ * * This code contributed by Karl Lehenbauer and Mark Diekhans * - * RCS: @(#) $Id: tclCkalloc.c,v 1.24 2005/09/14 21:32:17 dgp Exp $ + * RCS: @(#) $Id: tclCkalloc.c,v 1.25 2005/09/15 16:40:02 dgp Exp $ */ #include "tclInt.h" @@ -843,13 +843,14 @@ MemoryCmd(clientData, interp, argc, argv) return TCL_OK; } if (strcmp(argv[1],"info") == 0) { - TclObjPrintf(NULL, Tcl_GetObjResult(interp), - "%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n", + Tcl_Obj *objPtr = Tcl_NewObj(); + TclObjPrintf(NULL, objPtr, "%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n%-25s %10d\n", "total mallocs", total_mallocs, "total frees", total_frees, "current packets allocated", current_malloc_packets, "current bytes allocated", current_bytes_malloced, "maximum packets allocated", maximum_malloc_packets, "maximum bytes allocated", maximum_bytes_malloced); + Tcl_SetObjResult(interp, objPtr); return TCL_OK; } if (strcmp(argv[1],"init") == 0) { |