mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Sockets must be closed using closesocket in Windows

Browse source
This commit is contained in:
jjgarcia 2008-08-19 11:44:23 +00:00
parent 4fc8b4e5f8
commit fdfe31a38c
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/tcp.d
View file

@ -137,7 +137,11 @@ int connect_to_server(char *host, int port)
#endif
start_critical_section();
if (connect(fd, addr, addrlen) == -1) {
#if defined(_MSC_VER) || defined(mingw32)
closesocket(fd);
#else
(void) close (fd);
#endif
end_critical_section();
return(0); /* errno set by system call. */
}