TcpCloseProc(
    ClientData instanceData,	/* The socket to close. */
    Tcl_Interp *interp)		/* Unused. */
{
    SocketInfo *infoPtr = (SocketInfo *) instanceData;
    /* TIP #218 */
    int errorCode = 0;
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);

    /*
     * Check that WinSock is initialized; do not call it if not, to prevent
     * system crashes. This can happen at exit time if the exit handler for
     * WinSock ran before other exit handlers that want to use sockets.
     */

    if (SocketsEnabled()) {
	/*
	 * Clean up the OS socket handle. The default Windows setting for a
	 * socket is SO_DONTLINGER, which does a graceful shutdown in the
	 * background.
	 */

	if (closesocket(infoPtr->socket) == SOCKET_ERROR) {
	    TclWinConvertWSAError((DWORD) WSAGetLastError());
	    errorCode = Tcl_GetErrno();
	}
    }

    /*
     * Clear an eventual tsd info list pointer.
     * This may be called, if an async socket connect fails or is closed
     * between connect and thread action callback.
     */
    if (tsdPtr->pendingSocketInfo != NULL
	    && tsdPtr->pendingSocketInfo == infoPtr) {

	/* get infoPtr lock, because this concerns the notifier thread */
	WaitForSingleObject(tsdPtr->socketListLock, INFINITE);

	tsdPtr->pendingSocketInfo = NULL;

	/* Free list lock */
	SetEvent(tsdPtr->socketListLock);
    }

    /*
     * TIP #218. Removed the code removing the structure from the global
     * socket list. This is now done by the thread action callbacks, and only
     * there. This happens before this code is called. We can free without
     * fear of damaging the list.
     */

	    /* get infoPtr lock */
	    WaitForSingleObject(tsdPtr->socketListLock, INFINITE);

	    /*
	     * Buffer new infoPtr in the tsd memory as long as it is not in
	     * the info list. This allows the event procedure to process the
	     * event.
	     * Bugfig for 336441ed59 to not ignore notifications until the
	     * infoPtr is in the list..
	     */

	    tsdPtr->pendingSocketInfo = infoPtr;

	    /*
	     * Set connect mask to connect events
	     * This is activated by a SOCKET_SELECT message to the notifier
	     * thread.
	     */

	    infoPtr->selectEvents |= FD_CONNECT | FD_READ | FD_WRITE | FD_CLOSE;
	    infoPtr->flags |= SOCKET_ASYNC_CONNECT;
	    
	    /*
	     * Free list lock
	     */
	    SetEvent(tsdPtr->socketListLock);

	    /*
	     * Activate accept notification and put in async mode
	     * Bug 336441ed59: activate notification before connect
	     * so we do not miss a notification of a fialed connect.
	     */
	    ioctlsocket(sock, (long) FIONBIO, &flag);
	    SendMessage(tsdPtr->hwnd, SOCKET_SELECT, (WPARAM) SELECT,
	            (LPARAM) infoPtr);

	}

	/*

  error:
    TclWinConvertWSAError((DWORD) WSAGetLastError());
    if (interp != NULL) {
	Tcl_AppendResult(interp, "couldn't open socket: ",
		Tcl_PosixError(interp), NULL);
    }





    if (infoPtr != NULL) {
	/*
	 * Free the allocated socket info structure and close the socket
	 */
	TcpCloseProc(infoPtr, interp);
    } else if (sock != INVALID_SOCKET) {
	/*
	 * No socket structure jet - just close
	 */
	closesocket(sock);
    }
    return NULL;
}

/*
 *----------------------------------------------------------------------