diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-10-06 18:27:33 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-10 14:51:20 -0400 |
| commit | 74ee1237bf243dd7d8b758a53695575c364c3088 (patch) | |
| tree | bc105f075904878cd118694506c93fa351b9bc08 /libraries/ghc-bignum | |
| parent | 22f218b729a751bc5e5965624a716fc542f502a5 (diff) | |
| download | haskell-74ee1237bf243dd7d8b758a53695575c364c3088.tar.gz | |
Bignum: fix bigNatCompareWord# bug (#18813)
Diffstat (limited to 'libraries/ghc-bignum')
| -rw-r--r-- | libraries/ghc-bignum/src/GHC/Num/BigNat.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/ghc-bignum/src/GHC/Num/BigNat.hs b/libraries/ghc-bignum/src/GHC/Num/BigNat.hs index b2a84b323c..b0408bcfa6 100644 --- a/libraries/ghc-bignum/src/GHC/Num/BigNat.hs +++ b/libraries/ghc-bignum/src/GHC/Num/BigNat.hs @@ -339,7 +339,7 @@ bigNatCompareWord# a b | bigNatIsZero a = cmpW# 0## b | isTrue# (wordArraySize# a ># 1#) = GT | True - = cmpW# (indexWordArray# a 1#) b + = cmpW# (indexWordArray# a 0#) b -- | Compare a BigNat and a Word bigNatCompareWord :: BigNat# -> Word -> Ordering |