diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-10-08 16:46:51 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:55:21 -0400 |
commit | 6a243e9daaa6c17c0859f47ae3a098e680aa28cf (patch) | |
tree | 170e2a707534c1bc4c45abd11ae2438c39c6274d /compiler/GHC/CoreToStg/Prep.hs | |
parent | db236ffc03e5e17f71295469040da96b03ec2f87 (diff) | |
download | haskell-6a243e9daaa6c17c0859f47ae3a098e680aa28cf.tar.gz |
Cache HomeUnit in HscEnv (#17957)
Instead of recreating the HomeUnit from the DynFlags every time we need
it, we store it in the HscEnv.
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
-rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index e5fc09522d..0b689732a2 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -1556,7 +1556,7 @@ mkConvertNumLiteral hsc_env = do let dflags = hsc_dflags hsc_env platform = targetPlatform dflags - home_unit = mkHomeUnitFromFlags dflags + home_unit = hsc_home_unit hsc_env guardBignum act | isHomeUnitInstanceOf home_unit primUnitId = return $ panic "Bignum literals are not supported in ghc-prim" |