diff options
author | vasiljevic <vasiljevic@noemail.net> | 2005-04-16 08:00:17 (GMT) |
---|---|---|
committer | vasiljevic <vasiljevic@noemail.net> | 2005-04-16 08:00:17 (GMT) |
commit | 2732784c0c32cdc136f8b4f1c63b81b0497fb88a (patch) | |
tree | a6814bc23072ec46c217e4223cb19fe364b59ea4 /generic/tclThreadAlloc.c | |
parent | a7cc11edb7ca05c65f56c3823dec50fdf474a78e (diff) | |
download | tcl-2732784c0c32cdc136f8b4f1c63b81b0497fb88a.zip tcl-2732784c0c32cdc136f8b4f1c63b81b0497fb88a.tar.gz tcl-2732784c0c32cdc136f8b4f1c63b81b0497fb88a.tar.bz2 |
Modified TclFinalizeThreadAlloc() to explicitly call TclpFreeAllocCache
with the NULL-ptr as argument signalling cleanup of private tsd key
used only by the threading allocator
FossilOrigin-Name: 9b92b809a4189d54a6d246f77e3e082c81427342
Diffstat (limited to 'generic/tclThreadAlloc.c')
-rwxr-xr-x | generic/tclThreadAlloc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 553bd4f..0e8c087 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.14 2004/07/21 01:45:44 hobbs Exp $ + * RCS: @(#) $Id: tclThreadAlloc.c,v 1.15 2005/04/16 08:00:17 vasiljevic Exp $ */ #include "tclInt.h" @@ -988,6 +988,8 @@ TclFinalizeThreadAlloc() TclpFreeAllocMutex(listLockPtr); listLockPtr = NULL; + + TclpFreeAllocCache(NULL); } #else |