[project @ 2002-02-12 15:17:13 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelPtr.lhs

diff --git a/ghc/lib/std/PrelPtr.lhs b/ghc/lib/std/PrelPtr.lhs
deleted file mode 100644 (file)
index ddff34e..0000000
--- a/ghc/lib/std/PrelPtr.lhs
+++ /dev/null
@@ -1,60 +0,0 @@
------------------------------------------------------------------------------
--- $Id: PrelPtr.lhs,v 1.4 2001/10/17 11:26:04 simonpj Exp $
--- 
--- (c) 2000
--- 
--- Module PrelPtr
-
-\begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
-module PrelPtr{-everything-} where
-       
-import PrelBase
-
-------------------------------------------------------------------------
--- Data pointers.
-
-data Ptr a = Ptr Addr# deriving (Eq, Ord)
-
-nullPtr :: Ptr a
-nullPtr = Ptr nullAddr#
-
-castPtr :: Ptr a -> Ptr b
-castPtr (Ptr addr) = Ptr addr
-
-plusPtr :: Ptr a -> Int -> Ptr b
-plusPtr (Ptr addr) (I# d) = Ptr (plusAddr# addr d)
-
-alignPtr :: Ptr a -> Int -> Ptr a
-alignPtr addr@(Ptr a) (I# i)
-  = case remAddr# a i of {
-      0# -> addr;
-      n -> Ptr (plusAddr# a (i -# n)) }
-
-minusPtr :: Ptr a -> Ptr b -> Int
-minusPtr (Ptr a1) (Ptr a2) = I# (minusAddr# a1 a2)
-
-instance CCallable   (Ptr a)
-instance CReturnable (Ptr a)
-
-------------------------------------------------------------------------
--- Function pointers for the default calling convention.
-
-data FunPtr a = FunPtr Addr# deriving (Eq, Ord)
-
-nullFunPtr :: FunPtr a
-nullFunPtr = FunPtr nullAddr#
-
-castFunPtr :: FunPtr a -> FunPtr b
-castFunPtr (FunPtr addr) = FunPtr addr
-
-castFunPtrToPtr :: FunPtr a -> Ptr b
-castFunPtrToPtr (FunPtr addr) = Ptr addr
-
-castPtrToFunPtr :: Ptr a -> FunPtr b
-castPtrToFunPtr (Ptr addr) = FunPtr addr
-
-instance CCallable   (FunPtr a)
-instance CReturnable (FunPtr a)
-\end{code}
-