From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jul 2001 01:45:36 +0000 (+0000)
Subject: Fix typo.  Supply definition for (surprisingly) missing INADDR_LOOPBACK.
X-Git-Tag: 20090517-FFI~2632
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5960750343c1a51b9055650b83b6a7ada0fe06ed;p=mit-scheme.git

Fix typo.  Supply definition for (surprisingly) missing INADDR_LOOPBACK.
---

diff --git a/v7/src/microcode/os2sock.c b/v7/src/microcode/os2sock.c
index 760059bf9..d6b568b0a 100644
--- a/v7/src/microcode/os2sock.c
+++ b/v7/src/microcode/os2sock.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2sock.c,v 1.17 2001/06/02 01:22:47 cph Exp $
+$Id: os2sock.c,v 1.18 2001/07/19 01:45:36 cph Exp $
 
 Copyright (c) 1990-2001 Massachusetts Institute of Technology
 
@@ -40,6 +40,10 @@ USA.
 #include <sys/un.h>
 #include <sys/socket.h>
 
+#ifndef INADDR_LOOPBACK
+#  define INADDR_LOOPBACK 0x7F000001
+#endif
+
 static Tchannel initialize_stream_socket (int, enum channel_type);
 static msg_t * stream_socket_reader (LHANDLE, qid_t, msg_t *, int *);
 static void stream_socket_operator
@@ -219,6 +223,7 @@ OS_create_tcp_server_socket (void)
 void
 OS_bind_tcp_server_socket (Tchannel channel, void * host, unsigned int port)
 {
+  struct sockaddr_in address;
   memset ((&address), 0, (sizeof (address)));
   (address . sin_family) = AF_INET;
   memcpy ((& (address . sin_addr)), host, (sizeof (address . sin_addr)));