-getPrimRepSizeInBytes pr =
- case pr of
- CharRep -> 4
- Int8Rep -> 1
- IntRep -> wORD_SIZE
- AddrRep -> wORD_SIZE
- FloatRep -> wORD_SIZE
- DoubleRep -> dOUBLE_SIZE * wORD_SIZE
- Word64Rep -> wORD64_SIZE * wORD_SIZE
- Int64Rep -> iNT64_SIZE * wORD_SIZE
- WeakPtrRep -> wORD_SIZE
- ForeignObjRep -> wORD_SIZE
- StablePtrRep -> wORD_SIZE
- StableNameRep -> wORD_SIZE
- ArrayRep -> wORD_SIZE
- ByteArrayRep -> wORD_SIZE
- _ -> panic "getPrimRepSize: ouch - this wasn't supposed to happen!"
+getPrimRepSizeInBytes PtrRep = wORD_SIZE
+getPrimRepSizeInBytes CodePtrRep = wORD_SIZE
+getPrimRepSizeInBytes DataPtrRep = wORD_SIZE
+getPrimRepSizeInBytes RetRep = wORD_SIZE
+getPrimRepSizeInBytes CostCentreRep = wORD_SIZE
+getPrimRepSizeInBytes CharRep = 4
+getPrimRepSizeInBytes IntRep = wORD_SIZE
+getPrimRepSizeInBytes WordRep = wORD_SIZE
+getPrimRepSizeInBytes AddrRep = wORD_SIZE
+getPrimRepSizeInBytes FloatRep = wORD_SIZE
+getPrimRepSizeInBytes DoubleRep = dOUBLE_SIZE * wORD_SIZE
+getPrimRepSizeInBytes Int8Rep = 1
+getPrimRepSizeInBytes Int16Rep = 2
+getPrimRepSizeInBytes Int32Rep = 4
+getPrimRepSizeInBytes Int64Rep = 8
+getPrimRepSizeInBytes Word8Rep = 1
+getPrimRepSizeInBytes Word16Rep = 2
+getPrimRepSizeInBytes Word32Rep = 4
+getPrimRepSizeInBytes Word64Rep = 8
+getPrimRepSizeInBytes StablePtrRep = wORD_SIZE
+getPrimRepSizeInBytes other = pprPanic "getPrimRepSizeInBytes" (ppr other)
+\end{code}