summaryrefslogtreecommitdiff
path: root/lang/ocaml/patches/patch-ba
blob: 08e6fdffe655e20d52e2f201a5636aff41cf7613 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
$NetBSD: patch-ba,v 1.7 2009/10/18 12:47:53 tonio Exp $

--- otherlibs/unix/socketaddr.c.orig	2005-03-24 18:20:53.000000000 +0100
+++ otherlibs/unix/socketaddr.c
@@ -80,6 +80,9 @@ void get_sockaddr(value mladr,
       adr->s_inet6.sin6_family = AF_INET6;
       adr->s_inet6.sin6_addr = GET_INET6_ADDR(Field(mladr, 0));
       adr->s_inet6.sin6_port = htons(Int_val(Field(mladr, 1)));
+#ifdef SIN6_LEN
+      adr->s_gen.sa_len =
+#endif
       *adr_len = sizeof(struct sockaddr_in6);
       break;
     }
@@ -88,6 +91,9 @@ void get_sockaddr(value mladr,
     adr->s_inet.sin_family = AF_INET;
     adr->s_inet.sin_addr = GET_INET_ADDR(Field(mladr, 0));
     adr->s_inet.sin_port = htons(Int_val(Field(mladr, 1)));
+#ifdef SIN6_LEN
+      adr->s_gen.sa_len =
+#endif
     *adr_len = sizeof(struct sockaddr_in);
     break;
   }