From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Aug 1999 18:47:57 +0000 (+0000)
Subject: Fix calling arguments to gethostbyaddr.
X-Git-Tag: 20090517-FFI~4473
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=195cd46d4f0d3bf31325257dd6e45684d5f9ca6f;p=mit-scheme.git

Fix calling arguments to gethostbyaddr.
---

diff --git a/v7/src/microcode/ntsock.c b/v7/src/microcode/ntsock.c
index 942a8b7e9..6e9da58b0 100644
--- a/v7/src/microcode/ntsock.c
+++ b/v7/src/microcode/ntsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntsock.c,v 1.6 1999/08/13 18:29:38 cph Exp $
+$Id: ntsock.c,v 1.7 1999/08/13 18:47:52 cph Exp $
 
 Copyright (c) 1997-1999 Massachusetts Institute of Technology
 
@@ -161,7 +161,8 @@ OS_canonical_host_name (const char * host_name)
 const char *
 OS_get_host_by_address (const char * host_addr)
 {
-  struct hostent * entry = (gethostbyaddr (host_addr));
+  struct hostent * entry
+    = (gethostbyaddr (host_addr, , (OS_host_address_length ()), AF_INET));
   if (entry == 0)
     return (0);
   {
diff --git a/v7/src/microcode/os2sock.c b/v7/src/microcode/os2sock.c
index b5ed7f2df..e06e4d341 100644
--- a/v7/src/microcode/os2sock.c
+++ b/v7/src/microcode/os2sock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2sock.c,v 1.11 1999/08/13 18:29:34 cph Exp $
+$Id: os2sock.c,v 1.12 1999/08/13 18:47:57 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -179,7 +179,8 @@ OS_canonical_host_name (const char * host_name)
 const char *
 OS_get_host_by_address (const char * host_addr)
 {
-  struct hostent * entry = (gethostbyaddr (host_addr));
+  struct hostent * entry
+    = (gethostbyaddr (host_addr, , (OS_host_address_length ()), AF_INET));
   if (entry == 0)
     return (0);
   {
diff --git a/v7/src/microcode/uxsock.c b/v7/src/microcode/uxsock.c
index 39091b0f7..d00b9ce10 100644
--- a/v7/src/microcode/uxsock.c
+++ b/v7/src/microcode/uxsock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: uxsock.c,v 1.20 1999/08/13 18:43:05 cph Exp $
+$Id: uxsock.c,v 1.21 1999/08/13 18:47:49 cph Exp $
 
 Copyright (c) 1990-1999 Massachusetts Institute of Technology
 
@@ -146,7 +146,8 @@ DEFUN (OS_canonical_host_name, (host_name), CONST char * host_name)
 CONST char *
 DEFUN (OS_get_host_by_address, (host_addr), CONST char * host_addr)
 {
-  struct hostent * entry = (gethostbyaddr (host_addr, AF_INET));
+  struct hostent * entry
+    = (gethostbyaddr (host_addr, (OS_host_address_length ()), AF_INET));
   if (entry == 0)
     return (0);
   {