nativeMachine: use constants
[mate.git] / Mate / NativeSizes.hs
1 module Mate.NativeSizes where
2
3 import Data.Word
4
5 ptrSize, longSize :: Word32
6 #ifdef i386_HOST_ARCH
7 ptrSize = 4
8 longSize = 8
9 #endif