X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FHaskellConstants.hs;h=51cdcaf0d1f033115febeacdf52220c6b25a0ae0;hb=e8a42ae2991013f586cb0606fcbd70d9b4c41d6f;hp=1c1bb4891a2fda950466320d8a975ef4563d2e31;hpb=79e9cfa32cc3b94428e1199ce550bb62c50bf8e6;p=ghc-hetmet.git

diff --git a/includes/HaskellConstants.hs b/includes/HaskellConstants.hs
index 1c1bb48..51cdcaf 100644
--- a/includes/HaskellConstants.hs
+++ b/includes/HaskellConstants.hs
@@ -62,6 +62,9 @@ mIN_CHARLIKE, mAX_CHARLIKE :: Int
 mIN_CHARLIKE = MIN_CHARLIKE
 mAX_CHARLIKE = MAX_CHARLIKE
 
+mUT_ARR_PTRS_CARD_BITS :: Int
+mUT_ARR_PTRS_CARD_BITS = MUT_ARR_PTRS_CARD_BITS
+
 -- A section of code-generator-related MAGIC CONSTANTS.
 
 mAX_Vanilla_REG :: Int
@@ -180,6 +183,11 @@ bLOCK_SIZE = BLOCK_SIZE
 bLOCK_SIZE_W :: Int
 bLOCK_SIZE_W = bLOCK_SIZE `quot` wORD_SIZE
 
+-- blocks that fit in an MBlock, leaving space for the block descriptors
+
+bLOCKS_PER_MBLOCK :: Int
+bLOCKS_PER_MBLOCK = BLOCKS_PER_MBLOCK
+
 -- Number of bits to shift a bitfield left by in an info table.
 
 bITMAP_BITS_SHIFT :: Int