set binaryInterfaceMagic correctly on 64bit platforms
This commit is contained in:
parent
1a2cbbf582
commit
e2ab337ab7
@ -472,7 +472,11 @@ lazyGet bh = do
|
|||||||
-- --------------------------------------------------------------
|
-- --------------------------------------------------------------
|
||||||
|
|
||||||
initBinMemSize = (1024*1024) :: Int
|
initBinMemSize = (1024*1024) :: Int
|
||||||
|
#if WORD_SIZE_IN_BITS == 32
|
||||||
binaryInterfaceMagic = 0x1face :: Word32
|
binaryInterfaceMagic = 0x1face :: Word32
|
||||||
|
#elif WORD_SIZE_IN_BITS == 64
|
||||||
|
binaryInterfaceMagic = 0x1face64 :: Word32
|
||||||
|
#endif
|
||||||
|
|
||||||
getBinFileWithDict :: Binary a => FilePath -> IO a
|
getBinFileWithDict :: Binary a => FilePath -> IO a
|
||||||
getBinFileWithDict file_path = do
|
getBinFileWithDict file_path = do
|
||||||
|
Loading…
x
Reference in New Issue
Block a user