[project @ 2000-05-24 11:37:41 by simonpj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelRules.lhs

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index 170f924..63e9863 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__ > 405
+import PrelAddr ( intToWord )
+#else
+import PrelAddr ( Word(..) )
+import PrelGHC  ( int2Word# )
+intToWord :: Int -> Word
+intToWord (I# i#) = W# (int2Word# i#)
+#endif
 \end{code}
 
 
@@ -66,9 +75,11 @@ primOpRule op
        -- Word operations
     primop_rule WordQuotOp  = twoLits (wordOp2Z   quot  op_name)
     primop_rule WordRemOp   = twoLits (wordOp2Z   rem   op_name)
+#if __GLASGOW_HASKELL__ >= 407
     primop_rule AndOp       = twoLits (wordBitOp2 (.&.) op_name)
     primop_rule OrOp        = twoLits (wordBitOp2 (.|.) op_name)
     primop_rule XorOp       = twoLits (wordBitOp2 xor   op_name)
+#endif
 
        -- coercions
     primop_rule Word2IntOp     = oneLit (litCoerce word2IntLit     op_name)