diff options
| author | redman <redman> | 1999-04-13 18:12:43 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-04-13 18:12:43 (GMT) |
| commit | 83794a891accf799e62e666b631888f6dd41f9cf (patch) | |
| tree | 73e46aed1665318727449e7055081b0c257ca27f | |
| parent | b1b2faeb8fd6532e3e137cde6978e723ac4c9191 (diff) | |
| download | tcl-core_8_0_5_branch.zip tcl-core_8_0_5_branch.tar.gz tcl-core_8_0_5_branch.tar.bz2 | |
Applied patch to fix sockets when the FD_CONNECT never happens
core_8_0_5_branch
before the FD_WRITE (why, only Microsoft knows). Bug ID 1664 & 1776.
| -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 a8f2a2f..ab4bada 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.5 1999/02/03 00:51:20 stanton Exp $ + * RCS: @(#) $Id: tclWinSock.c,v 1.5.2.1 1999/04/13 18:12:43 redman 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; } |