[project @ 2000-05-12 09:18:21 by simonmar]

versionitis: pre-4.06 GHCs didn't have PrelAddr.intToWord

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index 170f924..2ede4e3 100644 (file)
--- a/ghc/compiler/prelude/PrelRules.lhs
+++ b/ghc/compiler/prelude/PrelRules.lhs
@@ -33,9 +33,18 @@ import ThinAir               ( unpackCStringFoldrId )
 import Maybes          ( maybeToBool )
 import Char            ( ord, chr )
 import Bits            ( Bits(..) )
-import PrelAddr                ( intToWord, wordToInt )
+import PrelAddr                ( wordToInt )
 import Word            ( Word64 )
 import Outputable
+
+#if __GLASGOW_HASKELL__ > 404
+import PrelAddr ( intToWord )
+#else
+import PrelAddr ( Word(..) )
+import PrelGHC  ( int2Word# )
+intToWord :: Int -> Word
+intToWord (I# i#) = W# (int2Word# i#)
+#endif
 \end{code}