Commit 38536296 authored by simonmar's avatar simonmar
Browse files

[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.
parent 66122508
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment