diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-06-19 11:32:29 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-23 22:50:49 -0400 |
| commit | b5768cce0214e20937f8e1d41ef1d9b5613b02ae (patch) | |
| tree | b82509fb55e6aae73547405e20d91c268538d93c | |
| parent | 625a7f5465d51d054c6930772412bad7d87189c5 (diff) | |
| download | haskell-b5768cce0214e20937f8e1d41ef1d9b5613b02ae.tar.gz | |
Don't use timesInt2# with GHC < 8.11 (fix #18358)
| -rw-r--r-- | libraries/ghc-bignum/src/GHC/Num/Integer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/ghc-bignum/src/GHC/Num/Integer.hs b/libraries/ghc-bignum/src/GHC/Num/Integer.hs index b4f6ee0c54..e9e38c9afd 100644 --- a/libraries/ghc-bignum/src/GHC/Num/Integer.hs +++ b/libraries/ghc-bignum/src/GHC/Num/Integer.hs @@ -407,7 +407,7 @@ integerMul x (IS 1#) = x integerMul (IS 1#) y = y integerMul x (IS -1#) = integerNegate x integerMul (IS -1#) y = integerNegate y -#if __GLASGOW_HASKELL__ < 809 +#if __GLASGOW_HASKELL__ < 811 integerMul (IS x) (IS y) = case mulIntMayOflo# x y of 0# -> IS (x *# y) _ -> case (# isTrue# (x >=# 0#), isTrue# (y >=# 0#) #) of |