diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-09 19:59:01 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-19 12:16:49 -0400 |
| commit | 64f207566931469648e791df4f0f0384d45cddd0 (patch) | |
| tree | 58e8a6e27d192368b1ddbc47e9bb89046b2a24a4 /compiler/GHC/StgToCmm.hs | |
| parent | b03fd3bcd4ff14aed2942275c3b0db5392dc913c (diff) | |
| download | haskell-64f207566931469648e791df4f0f0384d45cddd0.tar.gz | |
Refactoring: use Platform instead of DynFlags when possible
Metric Decrease:
ManyConstructors
T12707
T13035
T1969
Diffstat (limited to 'compiler/GHC/StgToCmm.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm.hs b/compiler/GHC/StgToCmm.hs index 1100cf4705..31ebdede81 100644 --- a/compiler/GHC/StgToCmm.hs +++ b/compiler/GHC/StgToCmm.hs @@ -188,6 +188,7 @@ cgDataCon :: DataCon -> FCode () -- the static closure, for a constructor. cgDataCon data_con = do { dflags <- getDynFlags + ; platform <- getPlatform ; let (tot_wds, -- #ptr_wds + #nonptr_wds ptr_wds) -- #ptr_wds @@ -216,7 +217,7 @@ cgDataCon data_con do { tickyEnterDynCon ; ldvEnter (CmmReg nodeReg) ; tickyReturnOldCon (length arg_reps) - ; void $ emitReturn [cmmOffsetB dflags (CmmReg nodeReg) (tagForCon dflags data_con)] + ; void $ emitReturn [cmmOffsetB platform (CmmReg nodeReg) (tagForCon dflags data_con)] } -- The case continuation code expects a tagged pointer } |