mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Update Gnulib to v0.0-6523-gb3609c1.

Browse source
This commit is contained in:
Ludovic Courtès 2011-10-22 16:24:32 +02:00
parent fe4ea6859e
commit 35428fb6b2
142 changed files with 4555 additions and 2443 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/bind.c
View file

@ -32,9 +32,18 @@ int
rpl_bind (int fd, const struct sockaddr *sockaddr, socklen_t len)
{
SOCKET sock = FD_TO_SOCKET (fd);
int r = bind (sock, sockaddr, len);
if (r < 0)
set_winsock_errno ();
return r;
if (sock == INVALID_SOCKET)
{
errno = EBADF;
return -1;
}
else
{
int r = bind (sock, sockaddr, len);
if (r < 0)
set_winsock_errno ();
return r;
}
}