mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 15:00:21 +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>
#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. */
extern int h_errno;
#endif
@ -314,6 +314,7 @@ SCM_DEFINE (scm_getproto, "getproto", 0, 1, 0,
#undef FUNC_NAME
#endif
#ifdef HAVE_GETSERVENT
static SCM
scm_return_entry (struct servent *entry)
{
@ -329,7 +330,6 @@ scm_return_entry (struct servent *entry)
return ans;
}
#ifdef HAVE_GETSERVENT
SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
(SCM name, SCM protocol),
"@deffnx procedure getservbyname name protocol\n"