{-# LINE 1 "libraries/ghc-internal/src/GHC/Internal/Heap/Constants.hsc" #-} {-# LANGUAGE CPP #-} module GHC.Internal.Heap.Constants ( wORD_SIZE , tAG_MASK , wORD_SIZE_IN_BITS ) where import GHC.Internal.Data.Bits import GHC.Internal.Int import GHC.Internal.Num wORD_SIZE, tAG_MASK, wORD_SIZE_IN_BITS :: Int wORD_SIZE :: Int wORD_SIZE = Int 8 {-# LINE 17 "libraries/ghc-internal/src/GHC/Internal/Heap/Constants.hsc" #-} wORD_SIZE_IN_BITS = 64 tAG_MASK :: Int {-# LINE 18 "libraries/ghc-internal/src/GHC/Internal/Heap/Constants.hsc" #-} tAG_MASK = (1 `shift` 3) - 1 {-# LINE 19 "libraries/ghc-internal/src/GHC/Internal/Heap/Constants.hsc" #-}