diff options
Diffstat (limited to 'libguile/socket.c')
-rw-r--r-- | libguile/socket.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c index d8ab005f5..10597081d 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -798,7 +798,7 @@ scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg, soka = (struct sockaddr_in *) scm_malloc (sizeof (struct sockaddr_in)); memset (soka, '\0', sizeof (struct sockaddr_in)); -#ifdef HAVE_STRUCT_SOCKADDR_SIN_LEN +#ifdef HAVE_STRUCT_SOCKADDR_IN_SIN_LEN soka->sin_len = sizeof (struct sockaddr_in); #endif soka->sin_family = AF_INET; @@ -1134,6 +1134,10 @@ scm_to_sockaddr (SCM address, size_t *address_size) memset (&c_inet, '\0', sizeof (struct sockaddr_in)); +#ifdef HAVE_STRUCT_SOCKADDR_IN_SIN_LEN + c_inet.sin_len = sizeof (struct sockaddr_in); +#endif + c_inet.sin_addr.s_addr = htonl (scm_to_ulong (SCM_SIMPLE_VECTOR_REF (address, 1))); c_inet.sin_port = |