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

[project @ 2004-06-02 16:00:02 by simonmar]
Add __hscore_PrelHandle_{send,recv}
---

diff --git a/include/HsBase.h b/include/HsBase.h
index 3f0426c..d3fc3a2 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -406,6 +406,18 @@ __hscore_PrelHandle_read( HsInt fd, HsAddr ptr, HsInt off, int sz )
 
 }
 
+INLINE HsInt
+__hscore_PrelHandle_send( HsInt fd, HsAddr ptr, HsInt off, int sz )
+{
+    return send(fd,(char *)ptr + off, sz, 0);
+}
+
+INLINE HsInt
+__hscore_PrelHandle_recv( HsInt fd, HsAddr ptr, HsInt off, int sz )
+{
+    return recv(fd,(char *)ptr + off, sz, 0);
+}
+
 #if defined(mingw32_TARGET_OS) || defined(_MSC_VER)
 INLINE long *
 __hscore_Time_ghcTimezone( void ) { return &_timezone; }