[project @ 1998-05-12 17:04:11 by sof]

fdToHandle: use openFd

diff --git a/ghc/lib/posix/PosixIO.lhs b/ghc/lib/posix/PosixIO.lhs
index 6c2ce72..6c67b24 100644 (file)
--- a/ghc/lib/posix/PosixIO.lhs
+++ b/ghc/lib/posix/PosixIO.lhs
@@ -4,6 +4,7 @@
 \section[PosixIO]{Haskell 1.3 POSIX Input/Output Primitives}
 
 \begin{code}
+{-# OPTIONS -#include "../std/cbits/stgio.h" #-}
 module PosixIO (
     FdOption(..),
     FileLock,
@@ -109,14 +110,17 @@ fdToHandle fd@(FD# fd#) =
        else
          ("r",ReadHandle)
       in
-      _ccall_ fdopen fd ft >>= \ file_struct@(A# ptr#) ->
+      _ccall_ openFd fd ft >>= \ file_struct@(A# ptr#) ->
       if file_struct /= (``NULL''::Addr) then
         {-
           A distinction is made here between std{Input,Output,Error} Fds
           and all others. The standard descriptors have a finaliser
           that will not close the underlying fd, the others have one
-          that will. Or rather, the closing of the standard descriptors is
-          delayed until the process exits.
+          that will. 
+
+          Delaying the closing of the standard descriptors until the process
+          exits is necessary since the RTS is likely to require these after
+          (or as a result of) program termination.
         -}
 #ifndef __PARALLEL_HASKELL__
         (if fd == stdInput || fd == stdOutput || fd == stdError then