[project @ 2001-05-21 11:02:50 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelHandle.hsc

diff --git a/ghc/lib/std/PrelHandle.hsc b/ghc/lib/std/PrelHandle.hsc
index 6c516d7..9f50cf1 100644 (file)
--- a/ghc/lib/std/PrelHandle.hsc
+++ b/ghc/lib/std/PrelHandle.hsc
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hsc,v 1.3 2001/05/19 08:02:37 qrczak Exp $
+-- $Id: PrelHandle.hsc,v 1.4 2001/05/21 11:02:50 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -75,8 +75,6 @@ import PrelConc
 -- hSetBuffering: can't change buffering on a stream, 
 --     when the read buffer is non-empty? (no way to flush the buffer)
 
--- fix locking
-
 -- ---------------------------------------------------------------------------
 -- Creating a new handle
 
@@ -653,22 +651,11 @@ openFd fd filepath mode = do
           mkFileHandle fd filepath ha_type
 
 
-{- TODO: Implementation of locking in cbits is bogus.
-   Disable it for now.
-
 foreign import "lockFile" unsafe
   lockFile :: CInt -> CInt -> CInt -> IO CInt
 
 foreign import "unlockFile" unsafe
   unlockFile :: CInt -> IO CInt
--}
-
-lockFile :: CInt -> CInt -> CInt -> IO CInt
-lockFile _ _ _ = return 0
-
-unlockFile :: CInt -> IO CInt
-unlockFile _ = return 0
-
 
 mkFileHandle :: FD -> FilePath -> HandleType -> IO Handle
 mkFileHandle fd filepath ha_type = do