[Guile-commits] 03/15: Fix 'gethostname' prototype for x86_64-MinGW.

[Jan Nieuwenhuizen]

janneke pushed a commit to branch wip-mingw
in repository guile.

commit fc9ffa7181dfec5bf6f475afa61467e6640af034
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sat Mar 13 14:27:21 2021 +0100

    Fix 'gethostname' prototype for x86_64-MinGW.
    
    * lib/unistd.in.h (gethostname): Avoid 'rpl_gethostname' on x86_64-MinGW.
---
 lib/unistd.in.h | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/unistd.in.h b/lib/unistd.in.h
index 5914fd5..ab3ca04 100644
--- a/lib/unistd.in.h
+++ b/lib/unistd.in.h
@@ -1239,6 +1239,12 @@ _GL_FUNCDECL_SYS (gethostname, int, (char *name, size_t 
len)
 _GL_CXXALIAS_SYS_CAST (gethostname, int, (char *name, size_t len));
 # endif
 _GL_CXXALIASWARN (gethostname);
+#elif HAVE_WINSOCK2_H
+# include <winsock2.h>
+# undef gethostname
+# if __i386__
+#  define gethostname rpl_gethostname
+# endif
 #elif @UNISTD_H_HAVE_WINSOCK2_H@
 # undef gethostname
 # define gethostname 
gethostname_used_without_requesting_gnulib_module_gethostname