X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FHaskellConstants.hs;h=51cdcaf0d1f033115febeacdf52220c6b25a0ae0;hp=4555b474bffcead45bccb3b50cd99eb2c7fc0701;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hpb=0417404f5d1230c9d291ea9f73e2831121c8ec99

diff --git a/includes/HaskellConstants.hs b/includes/HaskellConstants.hs
index 4555b47..51cdcaf 100644
--- a/includes/HaskellConstants.hs
+++ b/includes/HaskellConstants.hs
@@ -183,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