summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-01-04 15:43:45 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-01-04 15:43:45 (GMT)
commit3d702184fba3a33fbbe7ea89cc9870549cf93471 (patch)
treed8a329f2059120051a28f7fd4a3d3157ca04c8f6 /generic
parenteaaba084fdd1a95fa0203bd16568f7350bd77b41 (diff)
downloadtcl-3d702184fba3a33fbbe7ea89cc9870549cf93471.zip
tcl-3d702184fba3a33fbbe7ea89cc9870549cf93471.tar.gz
tcl-3d702184fba3a33fbbe7ea89cc9870549cf93471.tar.bz2
* generic/tclThreadJoin.c (TclRememberJoinableThread,TclJoinThread):
Replaced Tcl_Alloc and Tcl_Free calls with ckalloc and ckfree so that memory debugging is supported.
Diffstat (limited to 'generic')
-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;