mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* socket.c (scm_fill_sockaddr): zero the address structure before

Browse source 
use, in case it has a sin_len field and the OS doesn't like random
	values (thanks to Bertrand Petit).
This commit is contained in:
Gary Houston 1999-11-04 20:04:18 +00:00
parent 4921140c64
commit 93a6b6f5a7
3 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/socket.c
View file

@ -325,6 +325,8 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
soka = (struct sockaddr_in *)
scm_must_malloc (sizeof (struct sockaddr_in), proc);
/* e.g., for BSDs which don't like invalid sin_len. */
memset (soka, 0, sizeof (struct sockaddr_in));
soka->sin_family = AF_INET;
soka->sin_addr.s_addr =
htonl (scm_num2ulong (address, (char *) which_arg, proc));
@ -344,6 +346,7 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
soka = (struct sockaddr_un *)
scm_must_malloc (sizeof (struct sockaddr_un), proc);
memset (soka, 0, sizeof (struct sockaddr_un));
soka->sun_family = AF_UNIX;
SCM_ASSERT (SCM_NIMP (address) && SCM_ROSTRINGP (address), address,
which_arg, proc);