projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Some refactoring of SpecConstr
[ghc-hetmet.git]
/
includes
/
HaskellConstants.hs
diff --git
a/includes/HaskellConstants.hs
b/includes/HaskellConstants.hs
index
1c1bb48
..
51cdcaf
100644
(file)
--- 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
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
-- 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
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
-- Number of bits to shift a bitfield left by in an info table.
bITMAP_BITS_SHIFT :: Int