diff options
| author | stanton <stanton> | 1999-04-15 22:38:46 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-15 22:38:46 (GMT) |
| commit | 743017523886608c1403479b0676d469b8f998ac (patch) | |
| tree | e29ecad719da73c67d437be2a057cc01dca684e9 /win/tclWinSock.c | |
| parent | ae56f9fc8840d99814f8fc8986fe6445ec9a57e6 (diff) | |
| download | tcl-743017523886608c1403479b0676d469b8f998ac.zip tcl-743017523886608c1403479b0676d469b8f998ac.tar.gz tcl-743017523886608c1403479b0676d469b8f998ac.tar.bz2 | |
* Merge 8.0.5 changes:
- Mac changes for final release
- Minor fixes to tools configure file
* win/tclWinSock.c: Apply patch to allow write access to a socket
if FD_WRITE is sent but FD_CONNECT is not. Some strange problem
with either Win32 or a socket driver. [Bug: 1664 1776]
Diffstat (limited to 'win/tclWinSock.c')
| -rw-r--r-- | win/tclWinSock.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/win/tclWinSock.c b/win/tclWinSock.c index 9fa05c9..102feb0 100644 --- a/win/tclWinSock.c +++ b/win/tclWinSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinSock.c,v 1.6 1999/03/10 05:52:54 stanton Exp $ + * RCS: @(#) $Id: tclWinSock.c,v 1.7 1999/04/15 22:38:48 stanton Exp $ */ #include "tclInt.h" @@ -2000,6 +2000,14 @@ SocketProc(hwnd, message, wParam, lParam) } } + if (infoPtr->flags & SOCKET_ASYNC_CONNECT) { + infoPtr->flags &= ~(SOCKET_ASYNC_CONNECT); + if (error != ERROR_SUCCESS) { + TclWinConvertWSAError(error); + infoPtr->lastError = Tcl_GetErrno(); + } + infoPtr->readyEvents |= FD_WRITE; + } infoPtr->readyEvents |= event; break; } |