X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Futils%2FBinary.hs;h=c20e2aa22b6e501ebeb08523e2a9d3a89f5d001e;hb=d04c4288dfc76c3cc593a37824bf2e996663abfb;hp=962531f110adf40ba0011c0af41475d254ab09d3;hpb=1c63991cae7907391d9a1a2b18bfe257332e01c9;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 962531f..c20e2aa 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