+% ------------------------------------------------------------------------------
+% $Id: PrelWeak.lhs,v 1.16 2001/03/22 03:51:09 hwloidl Exp $
%
-% (c) The AQUA Project, Glasgow University, 1998
+% (c) The University of Glasgow, 1998-2000
%
\section[PrelWeak]{Module @PrelWeak@}
import PrelGHC
import PrelBase
import PrelMaybe
--- NOTE: To break a cycle, ForeignObj is not in PrelForeign, but PrelIOBase!
-import PrelIOBase ( IO(..), unIO, ForeignObj(..) )
-
-#ifndef __PARALLEL_HASKELL__
+import PrelIOBase ( IO(..), unIO )
data Weak v = Weak (Weak# v)
mkWeakPtr key (Just finalizer) -- throw it away
return ()
-addForeignFinalizer :: ForeignObj -> IO () -> IO ()
-addForeignFinalizer (ForeignObj fo) finalizer = addFinalizer fo finalizer
-
{-
Instance Eq (Weak v) where
(Weak w1) == (Weak w2) = w1 `sameWeak#` w2
in
go n
-#endif
-
\end{code}