Commit a403eb91 authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot

ghc-bignum: fix division by zero (#18359)

parent ce987865
......@@ -531,7 +531,7 @@ bigNatQuotWord a (W# b) = bigNatQuotWord# a b
-- b /= 0
bigNatRemWord# :: BigNat -> Word# -> Word#
bigNatRemWord# a b
| 0## <- b = 1## `remWord#` 0##
| 0## <- b = case divByZero of _ -> 0##
| 1## <- b = 0##
| bigNatIsZero a = 0##
| True = inline bignat_rem_word a b
......
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