Implemented `gc-stats' using `libgc' information.

[bpt/guile.git] / libguile / inet_aton.c

diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c
index 88c5d8a..fe43d6e 100644 (file)
--- a/libguile/inet_aton.c
+++ b/libguile/inet_aton.c
@@ -31,15 +31,21 @@
  * SUCH DAMAGE.
  */
 
+
 #if defined(LIBC_SCCS) && !defined(lint)
 static char sccsid[] = "@(#)inet_addr.c        8.1 (Berkeley) 6/17/93";
 #endif /* LIBC_SCCS and not lint */
 
 #include <ctype.h>
 
+#ifdef __MINGW32__
+/* Include for MinGW only.  Cygwin will have the latter. */
+#include <winsock2.h>
+#else
 #include <sys/param.h>
 #include <netinet/in.h>
 #include <arpa/inet.h>
+#endif
 
 #if 0
 
@@ -48,8 +54,7 @@ static char sccsid[] = "@(#)inet_addr.c       8.1 (Berkeley) 6/17/93";
  * The value returned is in network order.
  */
 u_long
-inet_addr(cp)
-       register const char *cp;
+inet_addr(const char *cp)
 {
        struct in_addr val;
 
@@ -72,14 +77,12 @@ int inet_aton (const char *cp, struct in_addr *addr);
  * This replaces inet_addr, the return value from which
  * cannot distinguish between failure and a local broadcast address.  */
 int
-inet_aton(cp_arg, addr)
-       const char *cp_arg;
-       struct in_addr *addr;
+inet_aton(const char *cp_arg, struct in_addr *addr)
 {
        register unsigned long val;
        register int base, n;
        register unsigned char c;
-       register unsigned const char *cp = cp_arg;
+       register unsigned const char *cp = (unsigned const char *) cp_arg;
        unsigned int parts[4];
        register unsigned int *pp = parts;
 
@@ -160,3 +163,9 @@ inet_aton(cp_arg, addr)
                addr->s_addr = htonl(val);
        return (1);
 }
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/