diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-10-07 11:20:36 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-20 17:49:07 -0400 |
| commit | 0b575899eca29a89ff18d84e0daa63ec35358976 (patch) | |
| tree | d0021e9d17ed2493e356e92f43186ec7d53e1f77 /libraries | |
| parent | 05b8a21884fb3b283acb7d148afc875a95f7752c (diff) | |
| download | haskell-0b575899eca29a89ff18d84e0daa63ec35358976.tar.gz | |
Bignum: constant folding for bigNatCompareWord# (#20361)
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/ghc-bignum/src/GHC/Num/BigNat.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libraries/ghc-bignum/src/GHC/Num/BigNat.hs b/libraries/ghc-bignum/src/GHC/Num/BigNat.hs index b6afc533fb..fa8b84eccd 100644 --- a/libraries/ghc-bignum/src/GHC/Num/BigNat.hs +++ b/libraries/ghc-bignum/src/GHC/Num/BigNat.hs @@ -332,6 +332,7 @@ bigNatNe a b = isTrue# (bigNatNe# a b) -- | Compare a BigNat and a Word# bigNatCompareWord# :: BigNat# -> Word# -> Ordering +{-# NOINLINE bigNatCompareWord# #-} bigNatCompareWord# a b | bigNatIsZero a = cmpW# 0## b | isTrue# (wordArraySize# a ># 1#) = GT |