From 49ef966c3dfe153816d01fe5022971cbbc10c82e Mon Sep 17 00:00:00 2001
From: vasiljevic <zv@archiware.com>
Date: Sat, 16 Apr 2005 08:00:17 +0000
Subject: Modified TclFinalizeThreadAlloc() to explicitly call
 TclpFreeAllocCache with the NULL-ptr as argument signalling cleanup of
 private tsd key used only by the threading allocator

---
 generic/tclThreadAlloc.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12