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

Disable extern declaration of `h_errno' for __CYGWIN__,

Browse source 
too.
Put `scm_return_entry()' into HAVE_GETSERVENT conditional.
This commit is contained in:
Marius Vollmer 2001-11-02 00:16:28 +00:00
parent 5507e7260b
commit e2c801663c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/net_db.c
View file

@ -74,7 +74,7 @@
#include <arpa/inet.h> #include <arpa/inet.h>
#endif #endif
#if !defined (HAVE_H_ERRNO) && !defined (__MINGW32__) #if !defined (HAVE_H_ERRNO) && !defined (__MINGW32__) && !defined (__CYGWIN__)
/* h_errno not found in netdb.h, maybe this will help. */ /* h_errno not found in netdb.h, maybe this will help. */
extern int h_errno; extern int h_errno;
#endif #endif
@ -314,6 +314,7 @@ SCM_DEFINE (scm_getproto, "getproto", 0, 1, 0,
#undef FUNC_NAME #undef FUNC_NAME
#endif #endif
#ifdef HAVE_GETSERVENT
static SCM static SCM
scm_return_entry (struct servent *entry) scm_return_entry (struct servent *entry)
{ {
@ -329,7 +330,6 @@ scm_return_entry (struct servent *entry)
return ans; return ans;
} }
#ifdef HAVE_GETSERVENT
SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0, SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
(SCM name, SCM protocol), (SCM name, SCM protocol),
"@deffnx procedure getservbyname name protocol\n" "@deffnx procedure getservbyname name protocol\n"