Mate/NativeSizes.hs

   1 {-# LANGUAGE CPP #-}
   2 module Mate.NativeSizes where
   3
   4 import Data.Word
   5
   6 ptrSize, longSize :: NativeWord
   7 #if defined(ARCH_X86)
   8 ptrSize = 4
   9 longSize = 8
  10
  11 type NativeWord = Word32
  12 #endif