diff options
| -rw-r--r-- | ghc/compiler/main/Constants.lhs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs index 771b5132c8..97d6a3a12a 100644 --- a/ghc/compiler/main/Constants.lhs +++ b/ghc/compiler/main/Constants.lhs @@ -64,7 +64,10 @@ module Constants ( iNT64_SIZE, wORD64_SIZE, + wORD_SIZE, + bLOCK_SIZE, + bLOCK_SIZE_W, interfaceFileFormatVersion @@ -223,8 +226,15 @@ area is has available. rESERVED_C_STACK_BYTES = (RESERVED_C_STACK_BYTES :: Int) \end{code} +Size of a word, in bytes + +\begin{code} +wORD_SIZE = (WORD_SIZE :: Int) +\end{code} + Size of a storage manager block (in bytes). \begin{code} bLOCK_SIZE = (BLOCK_SIZE :: Int) +bLOCK_SIZE_W = (bLOCK_SIZE `div` wORD_SIZE :: Int) \end{code} |