mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +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: Bug reports and fixes from:
Lauri Alanko
Greg Badros Greg Badros
Aleksandar Bakic Aleksandar Bakic
Per Bothner Per Bothner

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
1998-04-12 Mikael Djurfeldt <mdj@kenneth> 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 * gc.c (scm_gc_sweep): Count cells correctly. (Thanks to Ben
Caradoc-Davies.) Caradoc-Davies.)

8
libguile/socket.c
View file

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