module Data.Array.Accelerate.LLVM.Native.Link.Object
where
import Data.List
import Data.Word
import Foreign.ForeignPtr
import Foreign.Ptr
import Data.ByteString.Short.Char8 ( ShortByteString, unpack )
import Data.Array.Accelerate.Lifetime
data FunctionTable = FunctionTable { functionTable :: [Function] }
type Function = (ShortByteString, FunPtr ())
instance Show FunctionTable where
showsPrec _ f
= showString "<<"
. showString (intercalate "," [ unpack n | (n,_) <- functionTable f ])
. showString ">>"
type ObjectCode = Lifetime [Segment]
data Segment = Segment {-# UNPACK #-} !Int
{-# UNPACK #-} !(ForeignPtr Word8)