diff options
| author | hobbs <hobbs> | 2010-10-02 00:29:42 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2010-10-02 00:29:42 (GMT) |
| commit | bbc417c485039e65a424902ad8aff0b3dd8bdd35 (patch) | |
| tree | c7e0a89035c25ebdde3139eef2c5743705d5a7a2 /generic/tclIntDecls.h | |
| parent | 5fb9519d73d739e25d24e7a26841c3534dd6a3ca (diff) | |
| download | tcl-bbc417c485039e65a424902ad8aff0b3dd8bdd35.zip tcl-bbc417c485039e65a424902ad8aff0b3dd8bdd35.tar.gz tcl-bbc417c485039e65a424902ad8aff0b3dd8bdd35.tar.bz2 | |
* generic/tclExecute.c (EvalStatsCmd): change 'evalstats' to
return data to interp by default, or if given an arg, use that as
filename to output to (accepts 'stdout' and 'stderr').
Fix output to print used inst count data.
* generic/tclCkalloc.c: change TclDumpMemoryInfo sig to allow
* generic/tclInt.decls: objPtr as well as FILE* as output.
* generic/tclIntDecls.h:
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 8028b41..5596952 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.112.2.3 2010/07/02 20:49:47 nijtmans Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.112.2.4 2010/10/02 00:29:42 hobbs Exp $ */ #ifndef _TCLINTDECLS @@ -121,7 +121,7 @@ EXTERN void TclDeleteVars(Interp *iPtr, #ifndef TclDumpMemoryInfo_TCL_DECLARED #define TclDumpMemoryInfo_TCL_DECLARED /* 14 */ -EXTERN void TclDumpMemoryInfo(FILE *outFile); +EXTERN int TclDumpMemoryInfo(ClientData clientData, int flags); #endif /* Slot 15 is reserved */ #ifndef TclExprFloatError_TCL_DECLARED @@ -1055,7 +1055,7 @@ typedef struct TclIntStubs { void (*tclDeleteCompiledLocalVars) (Interp *iPtr, CallFrame *framePtr); /* 11 */ void (*tclDeleteVars) (Interp *iPtr, TclVarHashTable *tablePtr); /* 12 */ void *reserved13; - void (*tclDumpMemoryInfo) (FILE *outFile); /* 14 */ + int (*tclDumpMemoryInfo) (ClientData clientData, int flags); /* 14 */ void *reserved15; void (*tclExprFloatError) (Tcl_Interp *interp, double value); /* 16 */ void *reserved17; |