diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2019-12-23 23:15:25 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-12-31 14:22:32 -0500 |
| commit | eb6082358cdb5f271a8e4c74044a12f97352c52f (patch) | |
| tree | 6d5aed29c2050081bd1283ba7d43ceb562ce6761 /compiler/GHC/StgToCmm/Bind.hs | |
| parent | 0d42b287c3fe2510433a7fb744531a0765ad8ac8 (diff) | |
| download | haskell-eb6082358cdb5f271a8e4c74044a12f97352c52f.tar.gz | |
Module hierarchy (#13009): Stg
Diffstat (limited to 'compiler/GHC/StgToCmm/Bind.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Bind.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/StgToCmm/Bind.hs b/compiler/GHC/StgToCmm/Bind.hs index d373b79d0c..3eeb575da7 100644 --- a/compiler/GHC/StgToCmm/Bind.hs +++ b/compiler/GHC/StgToCmm/Bind.hs @@ -36,7 +36,7 @@ import Cmm import CmmInfo import CmmUtils import CLabel -import StgSyn +import GHC.Stg.Syntax import CostCentre import Id import IdInfo @@ -206,7 +206,7 @@ cgRhs id (StgRhsCon cc con args) = withNewTickyCounterCon (idName id) $ buildDynCon id True cc con (assertNonVoidStgArgs args) -- con args are always non-void, - -- see Note [Post-unarisation invariants] in UnariseStg + -- see Note [Post-unarisation invariants] in GHC.Stg.Unarise {- See Note [GC recovery] in compiler/GHC.StgToCmm/Closure.hs -} cgRhs id (StgRhsClosure fvs cc upd_flag args body) @@ -275,7 +275,7 @@ mkRhsClosure dflags bndr _cc , let (_, _, params_w_offsets) = mkVirtConstrOffsets dflags (addIdReps (assertNonVoidIds params)) -- pattern binders are always non-void, - -- see Note [Post-unarisation invariants] in UnariseStg + -- see Note [Post-unarisation invariants] in GHC.Stg.Unarise , Just the_offset <- assocMaybe params_w_offsets (NonVoid selectee) , let offset_into_int = bytesToWordsRoundUp dflags the_offset |