From 3853629646846fc5bb07c7de53f48b964acd544e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 12 May 2000 11:00:30 +0000
Subject: [PATCH] [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.

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

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