Constants.hsc

{-# LANGUAGE CPP #-}

module GHC.Internal.Heap.Constants
    ( wORD_SIZE
    , tAG_MASK
    , wORD_SIZE_IN_BITS
    ) where

#include "MachDeps.h"

import GHC.Internal.Data.Bits
import GHC.Internal.Int
import GHC.Internal.Num

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