Tcl Source Code

Artifact a800045facf13a2be6c9c2c519f7940a3f3dd8cd:

Attachment "tclWinSock.c.patch" to ticket [410674ffff] added by ashmael 2001-03-23 08:44:50.

---

*** ./orig/tcl8.2.3/win/tclWinSock.c	Sun Aug  1 15:09:29 1999
--- ./tcl8.2.3/win/tclWinSock.c	Thu Mar 22 16:44:48 2001
***************
*** 853,862 ****
  	if ((*winSock.select)(0, &readFds, NULL, NULL, &timeout) != 0) {
  	    mask |= TCL_READABLE;
  	} else {
- 	    SendMessage(tsdPtr->hwnd, SOCKET_SELECT,
- 		    (WPARAM) SELECT, (LPARAM) infoPtr);
  	    infoPtr->readyEvents &= ~(FD_READ);
  	}
      }
      if (events & (FD_WRITE | FD_CONNECT)) {
  	mask |= TCL_WRITABLE;
--- 853,862 ----
  	if ((*winSock.select)(0, &readFds, NULL, NULL, &timeout) != 0) {
  	    mask |= TCL_READABLE;
  	} else {
  	    infoPtr->readyEvents &= ~(FD_READ);
  	}
+ 	SendMessage(tsdPtr->hwnd, SOCKET_SELECT,
+ 		(WPARAM) SELECT, (LPARAM) infoPtr);
      }
      if (events & (FD_WRITE | FD_CONNECT)) {
  	mask |= TCL_WRITABLE;