From: simonmar <unknown>
Date: Fri, 12 May 2000 11:00:30 +0000 (+0000)
Subject: [project @ 2000-05-12 11:00:30 by simonmar]
X-Git-Tag: Approximately_9120_patches~4504
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3853629646846fc5bb07c7de53f48b964acd544e;p=ghc-hetmet.git

[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
--- 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)