From d04c4288dfc76c3cc593a37824bf2e996663abfb Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 9 Mar 2005 10:38:17 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/utils/Binary.hs |    5 +++++
 1 file changed, 5 insertions(+)

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