summaryrefslogtreecommitdiffstats
path: root/generic/tclThreadJoin.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclThreadJoin.c')
-rw-r--r--generic/tclThreadJoin.c6
1 files changed, 3 insertions, 3 deletions
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;