Commit d04c4288 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-03-09 10:38:17 by simonmar]

Use a different magic number (0x1face64) for 64-bit interface files.
This will prevent us trying to read the dictionary out of a 32-bit
interface file on a 64-bit machine.
parent 1c63991c
......@@ -615,7 +615,12 @@ lazyGet bh = do
-- --------------------------------------------------------------
initBinMemSize = (1024*1024) :: Int
#if WORD_SIZE_IN_BITS == 32
binaryInterfaceMagic = 0x1face :: Word32
#elif WORD_SIZE_IN_BITS == 64
binaryInterfaceMagic = 0x1face64 :: Word32
#endif
getBinFileWithDict :: Binary a => FilePath -> IO a
getBinFileWithDict file_path = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment