wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

set binaryInterfaceMagic correctly on 64bit platforms

Browse Source
This commit is contained in:
Jens Petersen 2005-09-14 08:59:31 +00:00
parent 1a2cbbf582
commit e2ab337ab7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Hi/Binary.hs
View File

@ -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