diff options
Diffstat (limited to 'otherlibs/unix/getsockname.c')
| -rw-r--r-- | otherlibs/unix/getsockname.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/otherlibs/unix/getsockname.c b/otherlibs/unix/getsockname.c index 94990e26d..5422236ff 100644 --- a/otherlibs/unix/getsockname.c +++ b/otherlibs/unix/getsockname.c @@ -13,6 +13,7 @@ /* $Id$ */ +#include <fail.h> #include <mlvalues.h> #include "unixsupport.h" @@ -29,7 +30,7 @@ CAMLprim value unix_getsockname(value sock) addr_len = sizeof(addr); retcode = getsockname(Int_val(sock), &addr.s_gen, &addr_len); if (retcode == -1) uerror("getsockname", Nothing); - return alloc_sockaddr(&addr, addr_len); + return alloc_sockaddr(&addr, addr_len, -1); } #else |