diff options
author | treectrl <treectrl> | 2006-10-16 01:17:22 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-10-16 01:17:22 (GMT) |
commit | 5a6c4276e15a65b9d6e13f0fb23313032a9e04d2 (patch) | |
tree | 41bde2547837ba619ecef3bd6ba5dc837e0333e2 /generic/tkTreeCtrl.c | |
parent | 803725a37fbf9a19b325947c85e1ebb8e6037d81 (diff) | |
download | tktreectrl-5a6c4276e15a65b9d6e13f0fb23313032a9e04d2.zip tktreectrl-5a6c4276e15a65b9d6e13f0fb23313032a9e04d2.tar.gz tktreectrl-5a6c4276e15a65b9d6e13f0fb23313032a9e04d2.tar.bz2 |
Added [debug alloc] command to display info about memory allocations.
Diffstat (limited to 'generic/tkTreeCtrl.c')
-rw-r--r-- | generic/tkTreeCtrl.c | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/generic/tkTreeCtrl.c b/generic/tkTreeCtrl.c index 2d93720..8bb2d93 100644 --- a/generic/tkTreeCtrl.c +++ b/generic/tkTreeCtrl.c @@ -7,7 +7,7 @@ * Copyright (c) 2002-2003 Christian Krone * Copyright (c) 2003-2005 ActiveState, a division of Sophos * - * RCS: @(#) $Id: tkTreeCtrl.c,v 1.70 2006/10/14 21:19:53 treectrl Exp $ + * RCS: @(#) $Id: tkTreeCtrl.c,v 1.71 2006/10/16 01:17:22 treectrl Exp $ */ #include "tkTreeCtrl.h" @@ -3124,9 +3124,9 @@ TreeDebugCmd( { TreeCtrl *tree = (TreeCtrl *) clientData; static CONST char *commandNames[] = { - "cget", "configure", "dinfo", "expose", "scroll", (char *) NULL + "alloc", "cget", "configure", "dinfo", "expose", "scroll", (char *) NULL }; - enum { COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_DINFO, + enum { COMMAND_ALLOC, COMMAND_CGET, COMMAND_CONFIGURE, COMMAND_DINFO, COMMAND_EXPOSE, COMMAND_SCROLL }; int index; @@ -3141,6 +3141,18 @@ TreeDebugCmd( } switch (index) { + /* T debug alloc */ + case COMMAND_ALLOC: + { +#ifdef TREECTRL_DEBUG + char *buf = AllocHax_Stats(tree->allocData); + Tcl_SetResult(interp, buf, TCL_DYNAMIC); +#else + FormatResult(interp, "TREECTRL_DEBUG is not defined"); +#endif + break; + } + /* T debug cget option */ case COMMAND_CGET: { |