Tcl Source Code

Artifact 90a659c4b614b8a674c2f7bc90679df6de9dfa05:

Attachment "free_mutex_missing.txt" to ticket [414419ffff] added by davygrvy 2001-04-07 05:09:52.

---

*** tclWinThrd.c	2000/06/13 20:30:24	1.11
--- tclWinThrd.c	2001/04/06 22:08:08
***************
*** 479,484 ****
--- 479,485 ----
  {
      CRITICAL_SECTION *csPtr = *(CRITICAL_SECTION **)mutexPtr;
      if (csPtr != NULL) {
+ 	DeleteCriticalSection(csPtr);
  	ckfree((char *)csPtr);
  	*mutexPtr = NULL;
      }