{-# LINE 1 "libraries/ghc-heap/GHC/Exts/Heap/InfoTable/Types.hsc" #-} module GHC.Exts.Heap.InfoTable.Types ( StgInfoTable(..) , EntryFunPtr , HalfWord , ItblCodes ) where import GHC.Exts.Heap.ClosureTypes import Foreign type ItblCodes = Either [Word8] [Word32] -- Ultra-minimalist version specially for constructors {-# LINE 18 "libraries/ghc-heap/GHC/Exts/Heap/InfoTable/Types.hsc" #-} type HalfWord = Word32 {-# LINE 24 "libraries/ghc-heap/GHC/Exts/Heap/InfoTable/Types.hsc" #-} type EntryFunPtr = FunPtr (Ptr () -> IO (Ptr ())) -- | This is a somewhat faithful representation of an info table. See -- <http://hackage.haskell.org/trac/ghc/browser/includes/rts/storage/InfoTables.h> -- for more details on this data structure. data StgInfoTable = StgInfoTable { entry :: Maybe EntryFunPtr, -- Just <=> not ghciTablesNextToCode ptrs :: HalfWord, nptrs :: HalfWord, tipe :: ClosureType, srtlen :: HalfWord, code :: Maybe ItblCodes -- Just <=> ghciTablesNextToCode } deriving (Show)