From: sewardj <unknown>
Date: Tue, 5 Jun 2001 16:21:25 +0000 (+0000)
Subject: [project @ 2001-06-05 16:21:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~1805
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c770cc2f062cdced907cbf2dbd5f3610edb17458;p=ghc-hetmet.git

[project @ 2001-06-05 16:21:25 by sewardj]
Make c_read visible on Win32.
---

diff --git a/ghc/lib/std/PrelPosix.hsc b/ghc/lib/std/PrelPosix.hsc
index 50268ed..665e17e 100644
--- a/ghc/lib/std/PrelPosix.hsc
+++ b/ghc/lib/std/PrelPosix.hsc
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-implicit-prelude -optc-DNON_POSIX_SOURCE #-}
 
 -- ---------------------------------------------------------------------------
--- $Id: PrelPosix.hsc,v 1.5 2001/05/30 16:39:22 sewardj Exp $
+-- $Id: PrelPosix.hsc,v 1.6 2001/06/05 16:21:25 sewardj Exp $
 --
 -- POSIX support layer for the standard libraries
 --
@@ -256,6 +256,9 @@ foreign import "lseek" unsafe
 foreign import "write" unsafe 
    c_write :: CInt -> Ptr CChar -> CSize -> IO CSsize
 
+foreign import "read" unsafe 
+   c_read :: CInt -> Ptr CChar -> CSize -> IO CSsize
+
 #ifndef mingw32_TARGET_OS
 foreign import "fcntl" unsafe
    fcntl_read  :: CInt -> CInt -> IO CInt
@@ -266,9 +269,6 @@ foreign import "fcntl" unsafe
 foreign import "fork" unsafe
    fork :: IO CPid 
 
-foreign import "read" unsafe 
-   c_read :: CInt -> Ptr CChar -> CSize -> IO CSsize
-
 foreign import "sigemptyset" unsafe
    c_sigemptyset :: Ptr CSigset -> IO ()