Ticket #3489: integer-simple.patch

Wed Aug 26 19:43:32 EDT 2009  pumpkingod@gmail.com
  * Add testBitInteger for compatibility with the new gmp bindings in integer-gmp

New patches:

[Add testBitInteger for compatibility with the new gmp bindings in integer-gmp
pumpkingod@gmail.com**20090826234332
 Ignore-this: a4d98459359bf9e9b130384d42803bd3
] {
hunk ./GHC/Integer.hs 38
     -- gcdInteger, lcmInteger, -- XXX
     andInteger, orInteger, xorInteger, complementInteger,
     shiftLInteger, shiftRInteger,
+    testBitInteger,
     hashInteger,
  ) where
 
hunk ./GHC/Integer.hs 287
     = complementInteger (shiftRInteger (complementInteger j) i)
 shiftRInteger Naught         _ = Naught
 
+-- XXX this could be a lot more efficient, but this is a quick reimplementation
+-- default Data.Bits instance so we can retain compatibility with integer-gmp
+testBitInteger :: Integer -> Int# -> Bool
+testBitInteger x i = (x `andInteger` (smallInteger 1# `shiftLInteger` i)) `neqInteger` smallInteger 0#
+
 twosComplementPositive :: Positive -> DigitsOnes
 twosComplementPositive p = flipBits (p `minusPositive` onePositive)
 
}

Context:

[Add NoImplicitPrelude to the extensions used
Ian Lynagh <igloo@earth.li>**20090722174729] 
[Add an import so the deps get sorted out correctly
Ian Lynagh <igloo@earth.li>**20090722162843] 
[() is now available, so use that instead of our own
Ian Lynagh <igloo@earth.li>**20090722161829] 
[Follow changes in GHC and the other libraries
Ian Lynagh <igloo@earth.li>**20090722131507] 
[Fix conversions between Float/Double and simple-integer
Ian Lynagh <igloo@earth.li>**20080614152452] 
[Sprinkle on some strictness annotations
Ian Lynagh <igloo@earth.li>**20080602193146] 
[Make the Integer type components strict
Ian Lynagh <igloo@earth.li>**20080602185149] 
[Avoid the need for infinite Integers when doing bitwise operations
Ian Lynagh <igloo@earth.li>**20080602184237] 
[Initial commit
Ian Lynagh <igloo@earth.li>**20080425024824] 
Patch bundle hash:
1bbb0fbe896450bc022c23cde1188a7f1102255b