import PrelNames
import TysWiredIn
-import Constants
import Outputable
import Panic
+#ifndef GHCI_TABLES_NEXT_TO_CODE
+import Constants ( wORD_SIZE )
+#endif
+
import GHC.Arr ( Array(..) )
import GHC.Exts
import GHC.IOBase ( IO(IO) )
| otherwise = pprPanic "Expected a TcTyCon" (ppr t)
go [] _ = []
go (t:tt) xx
- | (x, rest) <- splitAt ((sizeofType t + wORD_SIZE - 1) `div` wORD_SIZE) xx
+ | (x, rest) <- splitAt (sizeofType t) xx
= x : go tt rest
-sizeofTyCon :: TyCon -> Int
-sizeofTyCon = sizeofPrimRep . tyConPrimRep
+sizeofTyCon :: TyCon -> Int -- in *words*
+sizeofTyCon = primRepSizeW . tyConPrimRep
-----------------------------------
-- * Traversals for Terms