diff options
| author | vasiljevic <zv@archiware.com> | 2005-04-16 08:00:17 (GMT) |
|---|---|---|
| committer | vasiljevic <zv@archiware.com> | 2005-04-16 08:00:17 (GMT) |
| commit | 49ef966c3dfe153816d01fe5022971cbbc10c82e (patch) | |
| tree | a6814bc23072ec46c217e4223cb19fe364b59ea4 /generic | |
| parent | c6d40654e2d26347b03f781f94c615c5d5471c34 (diff) | |
| download | tcl-49ef966c3dfe153816d01fe5022971cbbc10c82e.zip tcl-49ef966c3dfe153816d01fe5022971cbbc10c82e.tar.gz tcl-49ef966c3dfe153816d01fe5022971cbbc10c82e.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
Diffstat (limited to 'generic')
| -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 |