diff options
author | dkf <dkf@noemail.net> | 2008-03-20 09:49:14 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-03-20 09:49:14 (GMT) |
commit | f23dd8339fc6bd5ea2de34d09b6211ef3c21068d (patch) | |
tree | 462f214cf7ea4990603443fc8fa140c9319275fc /generic/tclThreadAlloc.c | |
parent | dc68bcc0403dd288e4edb186a03592b2f2ecb0db (diff) | |
download | tcl-f23dd8339fc6bd5ea2de34d09b6211ef3c21068d.zip tcl-f23dd8339fc6bd5ea2de34d09b6211ef3c21068d.tar.gz tcl-f23dd8339fc6bd5ea2de34d09b6211ef3c21068d.tar.bz2 |
Final clean up of the Tcl_GetMemoryInfo mess.
FossilOrigin-Name: f3b6299f91659c38d3f992d4c2171ae26fbce8a3
Diffstat (limited to 'generic/tclThreadAlloc.c')
-rwxr-xr-x | generic/tclThreadAlloc.c | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index f2a043c..0850d66 100755 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -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: tclThreadAlloc.c,v 1.26 2008/03/19 16:02:05 dkf Exp $ + * RCS: @(#) $Id: tclThreadAlloc.c,v 1.27 2008/03/20 09:49:16 dkf Exp $ */ #include "tclInt.h" @@ -986,7 +986,30 @@ TclFinalizeThreadAlloc(void) TclpFreeAllocCache(NULL); } -#else +#else /* !(TCL_THREADS && USE_THREAD_ALLOC) */ +/* + *---------------------------------------------------------------------- + * + * Tcl_GetMemoryInfo -- + * + * Return a list-of-lists of memory stats. + * + * Results: + * None. + * + * Side effects: + * List appended to given dstring. + * + *---------------------------------------------------------------------- + */ + +void +Tcl_GetMemoryInfo( + Tcl_DString *dsPtr) +{ + Tcl_Panic("Tcl_GetMemoryInfo called when threaded memory allocator not in use"); +} + /* *---------------------------------------------------------------------- * @@ -1009,7 +1032,7 @@ TclFinalizeThreadAlloc(void) { Tcl_Panic("TclFinalizeThreadAlloc called when threaded memory allocator not in use"); } -#endif /* TCL_THREADS */ +#endif /* TCL_THREADS && USE_THREAD_ALLOC */ /* * Local Variables: |