Mate/NativeSizes.hs

   1 module Mate.NativeSizes where
   2
   3 import Data.Word
   4
   5 ptrSize, longSize :: NativeWord
   6 #ifdef i386_HOST_ARCH
   7 ptrSize = 4
   8 longSize = 8
   9
  10 type NativeWord = Word32
  11 #endif