ghc/lib/glaExts/Addr.lhs

   1 %
   2 % (c) The AQUA Project, Glasgow University, 1994-1996
   3 %
   4
   5 \section[Addr]{Module @Addr@}
   6
   7 \begin{code}
   8 {-# OPTIONS -fno-implicit-prelude #-}
   9
  10 module Addr (
  11         Addr(..), -- ToDo: nullAddr,
  12    ) where
  13
  14 import GHC
  15 import PrelBase
  16 import STBase
  17 import CCall
  18 \end{code}
  19
  20 \begin{code}
  21 data Addr = A# Addr#    deriving (Eq, Ord) -- Glasgow extension
  22
  23 nullAddr = ``NULL'' :: Addr
  24
  25 instance CCallable Addr
  26 instance CCallable Addr#
  27 instance CReturnable Addr
  28 \end{code}
  29
  30
  31