Mate/NativeSizes.hs

   1 {-# LANGUAGE CPP #-}
   2 module Mate.NativeSizes where
   3
   4 import Data.Word
   5
   6 ptrSize, longSize :: Num a => a
   7 #if defined(ARCH_X86)
   8 ptrSize = 4
   9 longSize = 8
  10
  11 type NativeWord = Word32
  12 #else
  13 -- HACK, for ghc-mod ...
  14 ptrSize = undefined
  15 longSize = undefined
  16 type NativeWord = Word32
  17 #endif