summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-08-07 00:43:02 (GMT)
committerhobbs <hobbs>2001-08-07 00:43:02 (GMT)
commit0a8df6def60dce83647c460a0773c78d255f58f4 (patch)
treec814f8b6b61023bb839984ee45de07cd8628cd7d
parent5407c8b540a11d9f614a59d44c701cb67aede86e (diff)
downloadtcl-0a8df6def60dce83647c460a0773c78d255f58f4.zip
tcl-0a8df6def60dce83647c460a0773c78d255f58f4.tar.gz
tcl-0a8df6def60dce83647c460a0773c78d255f58f4.tar.bz2
* win/tclWinThrd.c (TclpFinalizeMutex, TclpFinalizeCondition):
added DeleteCriticalSection calls for cleanup [Patch: #419683]
-rw-r--r--win/tclWinThrd.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index 78f32b5..e0e466d 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinThrd.c,v 1.13 2001/07/24 19:47:02 mdejong Exp $
+ * RCS: @(#) $Id: tclWinThrd.c,v 1.14 2001/08/07 00:43:02 hobbs Exp $
*/
#include "tclWinInt.h"
@@ -479,6 +479,7 @@ TclpFinalizeMutex(mutexPtr)
{
CRITICAL_SECTION *csPtr = *(CRITICAL_SECTION **)mutexPtr;
if (csPtr != NULL) {
+ DeleteCriticalSection(csPtr);
ckfree((char *)csPtr);
*mutexPtr = NULL;
}
@@ -947,6 +948,7 @@ TclpFinalizeCondition(condPtr)
*/
if (winCondPtr != NULL) {
+ DeleteCriticalSection(&winCondPtr->condLock);
ckfree((char *)winCondPtr);
*condPtr = NULL;
}