diff options
Diffstat (limited to 'libraries/ghc-bignum/src/GHC')
| -rw-r--r-- | libraries/ghc-bignum/src/GHC/Num/BigNat/GMP.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libraries/ghc-bignum/src/GHC/Num/BigNat/GMP.hs b/libraries/ghc-bignum/src/GHC/Num/BigNat/GMP.hs index cb1fe500d9..965b7c76ec 100644 --- a/libraries/ghc-bignum/src/GHC/Num/BigNat/GMP.hs +++ b/libraries/ghc-bignum/src/GHC/Num/BigNat/GMP.hs @@ -349,7 +349,8 @@ bignat_powmod -> State# RealWorld -> State# RealWorld bignat_powmod r b e m s = - ioVoid (integer_gmp_powm# r b (wordArraySize# b) e (wordArraySize# e) m (wordArraySize# m)) s + case ioInt# (integer_gmp_powm# r b (wordArraySize# b) e (wordArraySize# e) m (wordArraySize# m)) s of + (# s', n #) -> mwaSetSize# r (narrowGmpSize# n) s' ---------------------------------------------------------------------- |