* generic/tclThreadJoin.c (TclRememberJoinableThread,TclJoinThread):

        Replaced Tcl_Alloc and Tcl_Free calls with ckalloc and ckfree so that
        memory debugging is supported.

2 files changed, 9 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index d44156f..7b41720 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-04  Don Porter <dgp@users.sourceforge.net>
+
+	* generic/tclThreadJoin.c (TclRememberJoinableThread,TclJoinThread):
+	Replaced Tcl_Alloc and Tcl_Free calls with ckalloc and ckfree so that
+	memory debugging is supported.
+
 2002-01-04  Daniel Steffen <das@users.sourceforge.net>
 
 	* mac/tclMacTime.c (TclpGetTZName): fix for daylight savings TZName bug
diff --git a/generic/tclThreadJoin.c b/generic/tclThreadJoin.c
index 23b55d8..916270a 100644
--- a/generic/tclThreadJoin.c
+++ b/generic/tclThreadJoin.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclThreadJoin.c,v 1.2 2000/05/06 19:51:05 kupries Exp $
+ * RCS: @(#) $Id: tclThreadJoin.c,v 1.3 2002/01/04 15:43:45 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -199,7 +199,7 @@ TclJoinThread(id, result)
 
     Tcl_ConditionFinalize (&threadPtr->cond);
     Tcl_MutexFinalize (&threadPtr->threadMutex);
-    Tcl_Free ((VOID*) threadPtr);
+    ckfree ((VOID*) threadPtr);
 
     return TCL_OK;
 }
@@ -230,7 +230,7 @@ TclRememberJoinableThread(id)
 {
     JoinableThread* threadPtr;
 
-    threadPtr = (JoinableThread*) Tcl_Alloc (sizeof (JoinableThread));
+    threadPtr = (JoinableThread*) ckalloc (sizeof (JoinableThread));
     threadPtr->id          = id;
     threadPtr->done        = 0;
     threadPtr->waitedUpon  = 0;