import Constants ( mIN_PAYLOAD_SIZE, wORD_SIZE )
import CgHeapery ( mkVirtHeapOffsets )
import FastString ( FastString(..) )
-import Util ( lengthIs, listLengthCmp )
+import Util
import Outputable
import Foreign
itblCode :: ItblPtr -> Ptr ()
itblCode (ItblPtr ptr)
- = (castPtr ptr)
-#ifdef GHCI_TABLES_NEXT_TO_CODE
- `plusPtr` conInfoTableSizeB
-#endif
+ | ghciTablesNextToCode = castPtr ptr `plusPtr` conInfoTableSizeB
+ | otherwise = castPtr ptr
-- XXX bogus
conInfoTableSizeB = 3 * wORD_SIZE