mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of

Browse source 
UNIX_DOMAIN_SOCKETS.  (Thanks to Lauri Alanko.)
This commit is contained in:
Mikael Djurfeldt 1998-04-12 16:27:48 +00:00
parent 6f3067f1e0
commit 1ba8c23aca
3 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -6,6 +6,7 @@ The Guile core distribution:
Bug reports and fixes from:
Lauri Alanko
Greg Badros
Aleksandar Bakic
Per Bothner

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
1998-04-12 Mikael Djurfeldt <mdj@kenneth>
* socket.c: Check for HAVE_UNIX_DOMAIN_SOCKETS instead of
UNIX_DOMAIN_SOCKETS. (Thanks to Lauri Alanko.)
* gc.c (scm_gc_sweep): Count cells correctly. (Thanks to Ben
Caradoc-Davies.)

8
libguile/socket.c
View file

@ -57,7 +57,7 @@
#endif
#include <sys/types.h>
#include <sys/socket.h>
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
#include <sys/un.h>
#endif
#include <netinet/in.h>
@ -355,7 +355,7 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
*size = sizeof (struct sockaddr_in);
return (struct sockaddr *) soka;
}
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
case AF_UNIX:
{
struct sockaddr_un *soka;
@ -458,7 +458,7 @@ scm_addr_vector (address, proc)
short int fam = address->sa_family;
SCM result;
SCM *ve;
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
if (fam == AF_UNIX)
{
struct sockaddr_un *nad = (struct sockaddr_un *) address;
@ -496,7 +496,7 @@ static void
scm_init_addr_buffer ()
{
scm_addr_buffer_size =
#ifdef UNIX_DOMAIN_SOCKETS
#ifdef HAVE_UNIX_DOMAIN_SOCKETS
(int) sizeof (struct sockaddr_un)
#else
0