Commit c8e1c7fa authored by simonmar's avatar simonmar
Browse files

[project @ 2004-06-02 16:00:02 by simonmar]

Add __hscore_PrelHandle_{send,recv}
parent 40078dee
......@@ -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; }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment