diff options
Diffstat (limited to 'otherlibs/win32unix/getpeername.c')
| -rw-r--r-- | otherlibs/win32unix/getpeername.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/otherlibs/win32unix/getpeername.c b/otherlibs/win32unix/getpeername.c index 135b6d3fd..acc33f40b 100644 --- a/otherlibs/win32unix/getpeername.c +++ b/otherlibs/win32unix/getpeername.c @@ -26,6 +26,9 @@ CAMLprim value unix_getpeername(sock) addr_len = sizeof(sock_addr); retcode = getpeername((SOCKET) Handle_val(sock), &addr.s_gen, &addr_len); - if (retcode == -1) unix_error(WSAGetLastError(), "getpeername", Nothing); + if (retcode == -1) { + win32_maperr(WSAGetLastError()); + uerror("getpeername", Nothing); + } return alloc_sockaddr(&addr, addr_len); } |