From: simonmar <unknown>
Date: Wed, 2 Jun 2004 16:09:58 +0000 (+0000)
Subject: [project @ 2004-06-02 16:09:58 by simonmar]
X-Git-Tag: nhc98-1-18-release~314
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=35bc624830a577f566b5c0b0cea68b0daff44880;p=ghc-base.git

[project @ 2004-06-02 16:09:58 by simonmar]
__hscore_PrelHandle_{send,recv}: make these mingw32-only
---

diff --git a/include/HsBase.h b/include/HsBase.h
index d3fc3a2..1bcce33 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -406,6 +406,7 @@ __hscore_PrelHandle_read( HsInt fd, HsAddr ptr, HsInt off, int sz )
 
 }
 
+#if defined(mingw32_TARGET_OS) || defined(_MSC_VER)
 INLINE HsInt
 __hscore_PrelHandle_send( HsInt fd, HsAddr ptr, HsInt off, int sz )
 {
@@ -417,6 +418,7 @@ __hscore_PrelHandle_recv( HsInt fd, HsAddr ptr, HsInt off, int sz )
 {
     return recv(fd,(char *)ptr + off, sz, 0);
 }
+#endif
 
 #if defined(mingw32_TARGET_OS) || defined(_MSC_VER)
 INLINE long *