Tcl Source Code: Artifact [21a6132fbc]

Artifact 21a6132fbcc576baf442cf17f5453a2ba7f31be9:

Attachment "tclWinSerial.patch" to ticket [718002ffff] added by schroedter 2003-04-09 12:43:03.

*** tclWinSerial.c.tcl845	Sat Jan 18 07:03:48 2003
--- tclWinSerial.c	Thu Apr 03 09:58:45 2003
***************
*** 647,652 ****
--- 647,654 ----
          }
          
          CloseHandle(serialPtr->writeThread);
+         CloseHandle(serialPtr->osWrite.hEvent);
+         DeleteCriticalSection(&serialPtr->csWrite);
          CloseHandle(serialPtr->evWritable);
          CloseHandle(serialPtr->evStartWriter);
          CloseHandle(serialPtr->evStopWriter);