From: sof <unknown>
Date: Tue, 11 Aug 1998 17:31:40 +0000 (+0000)
Subject: [project @ 1998-08-11 17:31:40 by sof]
X-Git-Tag: Approx_2487_patches~457
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c7c5bf98cc0f7eb69888042798c53fb14646635;p=ghc-hetmet.git

[project @ 1998-08-11 17:31:40 by sof]
iNADDR_ANY: it's a HostAddress, so convert it to network
            byte order.
---

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index 2ed9048..7f5cd6e 100644
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -917,7 +917,9 @@ packSocketType stype = 1 + (index (Stream, Packet) stype)
 
 \begin{code}
 aNY_PORT = 0::Int
-iNADDR_ANY = ``INADDR_ANY''::Word
+iNADDR_ANY :: HostAddress
+iNADDR_ANY = unsafePerformIO (_casm_ `` %r = htonl(INADDR_ANY); '')
+
 sOMAXCONN = ``SOMAXCONN''::Int
 maxListenQueue = sOMAXCONN