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 /compiler/GHC/Builtin | |
| parent | 05b8a21884fb3b283acb7d148afc875a95f7752c (diff) | |
| download | haskell-0b575899eca29a89ff18d84e0daa63ec35358976.tar.gz | |
Bignum: constant folding for bigNatCompareWord# (#20361)
Diffstat (limited to 'compiler/GHC/Builtin')
| -rw-r--r-- | compiler/GHC/Builtin/Names.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Builtin/Names.hs b/compiler/GHC/Builtin/Names.hs index 5f02b8e42b..d60c8820a1 100644 --- a/compiler/GHC/Builtin/Names.hs +++ b/compiler/GHC/Builtin/Names.hs @@ -1213,6 +1213,7 @@ integerFromNaturalName , bignatFromWordListName , bignatEqName , bignatCompareName + , bignatCompareWordName :: Name bnbVarQual, bnnVarQual, bniVarQual :: String -> Unique -> Name @@ -1224,6 +1225,7 @@ bniVarQual str key = varQual gHC_NUM_INTEGER (fsLit str) key bignatFromWordListName = bnbVarQual "bigNatFromWordList#" bignatFromWordListIdKey bignatEqName = bnbVarQual "bigNatEq#" bignatEqIdKey bignatCompareName = bnbVarQual "bigNatCompare" bignatCompareIdKey +bignatCompareWordName = bnbVarQual "bigNatCompareWord#" bignatCompareWordIdKey naturalToWordName = bnnVarQual "naturalToWord#" naturalToWordIdKey naturalPopCountName = bnnVarQual "naturalPopCount#" naturalPopCountIdKey @@ -2599,6 +2601,7 @@ integerFromNaturalIdKey , bignatFromWordListIdKey , bignatEqIdKey , bignatCompareIdKey + , bignatCompareWordIdKey :: Unique integerFromNaturalIdKey = mkPreludeMiscIdUnique 600 @@ -2674,6 +2677,7 @@ naturalSizeInBaseIdKey = mkPreludeMiscIdUnique 684 bignatFromWordListIdKey = mkPreludeMiscIdUnique 690 bignatEqIdKey = mkPreludeMiscIdUnique 691 bignatCompareIdKey = mkPreludeMiscIdUnique 692 +bignatCompareWordIdKey = mkPreludeMiscIdUnique 693 ------------------------------------------------------ |