diff options
Diffstat (limited to 'testsuite/tests/lib/integer/integerGmpInternals.hs')
-rw-r--r-- | testsuite/tests/lib/integer/integerGmpInternals.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/testsuite/tests/lib/integer/integerGmpInternals.hs b/testsuite/tests/lib/integer/integerGmpInternals.hs index d281b739d4..2f49a755a1 100644 --- a/testsuite/tests/lib/integer/integerGmpInternals.hs +++ b/testsuite/tests/lib/integer/integerGmpInternals.hs @@ -17,17 +17,8 @@ import qualified GHC.Integer.GMP.Internals as I -- so we use naive reference-implementations instead for the meantime -- in order to keep the reference-output untouched. --- FIXME: Lacks GMP2 version --- stolen from `arithmoi` package recipModInteger :: Integer -> Integer -> Integer -recipModInteger k 0 = if k == 1 || k == (-1) then k else 0 -recipModInteger k m = case gcdExtInteger k' m' of - (1, u) -> if u < 0 then m' + u else u - _ -> 0 - where - m' = abs m - k' | k >= m' || k < 0 = k `mod` m' - | otherwise = k +recipModInteger = I.recipModInteger -- FIXME: Lacks GMP2 version gcdExtInteger :: Integer -> Integer -> (Integer, Integer) |