diff options
Diffstat (limited to 'libraries/ghc-heap/GHC/Exts/Heap/Constants.hsc')
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/Heap/Constants.hsc | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/Constants.hsc b/libraries/ghc-heap/GHC/Exts/Heap/Constants.hsc new file mode 100644 index 0000000000..757e76ce23 --- /dev/null +++ b/libraries/ghc-heap/GHC/Exts/Heap/Constants.hsc @@ -0,0 +1,16 @@ +{-# LANGUAGE CPP #-} + +module GHC.Exts.Heap.Constants + ( wORD_SIZE + , tAG_MASK + , wORD_SIZE_IN_BITS + ) where + +#include "MachDeps.h" + +import Data.Bits + +wORD_SIZE, tAG_MASK, wORD_SIZE_IN_BITS :: Int +wORD_SIZE = #const SIZEOF_HSWORD +wORD_SIZE_IN_BITS = #const WORD_SIZE_IN_BITS +tAG_MASK = (1 `shift` #const TAG_BITS) - 1 |