diff options
| -rw-r--r-- | ghc/compiler/utils/Binary.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs index 962531f110..c20e2aa22b 100644 --- a/ghc/compiler/utils/Binary.hs +++ b/ghc/compiler/utils/Binary.hs @@ -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 |