Remplacement des variables globales sock_addr et sock_addr_len par des variables locales (plus propre, et thread-safe)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2912 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 5 insertions, 2 deletions

diff --git a/otherlibs/unix/bind.c b/otherlibs/unix/bind.c
index 73716411a..aa111d3b7 100644
--- a/otherlibs/unix/bind.c
+++ b/otherlibs/unix/bind.c
@@ -22,8 +22,11 @@
 value unix_bind(value socket, value address)      /* ML */
 {
   int ret;
-  get_sockaddr(address);
-  ret = bind(Int_val(socket), &sock_addr.s_gen, sock_addr_len);
+  union sock_addr_union addr;
+  socklen_param_type addr_len;
+
+  get_sockaddr(address, &addr, &addr_len);
+  ret = bind(Int_val(socket), &addr.s_gen, addr_len);
   if (ret == -1) uerror("bind", Nothing);
   return Val_unit;
 }