projects
/
mate.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
5e8795b46f158967db8d2e8ee72bdadbee7da25c
[mate.git]
/
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
#else
13
-- HACK, for ghc-mod ...
14
ptrSize = undefined
15
longSize = undefined
16
type NativeWord = Word32
17
#endif