X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FHsBase.h;fp=include%2FHsBase.h;h=92cc4e34fe1bd0d830c5f7c2f65af9330ac58e1e;hb=91b6357e08093e7131c7c243543a29681b0989fe;hp=ccabc1e1f9a95e581f6d59fb2a274782d95ce621;hpb=30041dab9a9f0a92109665977eee8674385dc83c;p=ghc-base.git

diff --git a/include/HsBase.h b/include/HsBase.h
index ccabc1e..92cc4e3 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -417,33 +417,6 @@ __hscore_setmode( int fd, HsBool toBin )
 
 #if __GLASGOW_HASKELL__
 
-INLINE int
-__hscore_PrelHandle_write( int fd, void *ptr, HsInt off, int sz )
-{
-  return write(fd,(char *)ptr + off, sz);
-}
-
-INLINE int
-__hscore_PrelHandle_read( int fd, void *ptr, HsInt off, int sz )
-{
-  return read(fd,(char *)ptr + off, sz);
-
-}
-
-#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
-INLINE int
-__hscore_PrelHandle_send( int fd, void *ptr, HsInt off, int sz )
-{
-    return send(fd,(char *)ptr + off, sz, 0);
-}
-
-INLINE int
-__hscore_PrelHandle_recv( int fd, void *ptr, HsInt off, int sz )
-{
-    return recv(fd,(char *)ptr + off, sz, 0);
-}
-#endif
-
 #endif /* __GLASGOW_HASKELL__ */
 
 INLINE int