[project @ 2000-05-12 11:00:30 by simonmar]

integerToWord64 only started working properly yesterday (!), so don't
include folding on word bitops in pre-4.07 GHCs.

diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs
index 2ede4e3..bad9af2 100644 (file)
--- a/ghc/compiler/prelude/PrelRules.lhs
+++ b/ghc/compiler/prelude/PrelRules.lhs
@@ -75,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)