From fe02d5213c517e35926a5e428bfba7297c99e49b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 12 May 2000 09:18:21 +0000
Subject: [PATCH] [project @ 2000-05-12 09:18:21 by simonmar] versionitis:
 pre-4.06 GHCs didn't have PrelAddr.intToWord

---
 ghc/compiler/prelude/PrelRules.lhs |   11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index 170f924..2ede4e3 100644
--- 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}
 
 
-- 
1.7.10.4