diff options
author | Takenobu Tani <takenobu.hs@gmail.com> | 2020-05-30 23:11:59 +0900 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-10 03:39:59 -0400 |
commit | 2487912938f188cb264e4a11d21bf750adccc5e7 (patch) | |
tree | 13843cfd8f27bf6f1672a4e37d6af0e04bb34d18 /compiler/GHC/StgToCmm | |
parent | a47e6442bc4be4a33339499d876792ba109e8d32 (diff) | |
download | haskell-2487912938f188cb264e4a11d21bf750adccc5e7.tar.gz |
Clarify leaf module names for new module hierarchy
This updates comments only.
This patch replaces leaf module names according to new module
hierarchy [1][2] as followings:
* Expand leaf names to easily find the module path:
for instance, `Id.hs` to `GHC.Types.Id`.
* Modify leaf names according to new module hierarchy:
for instance, `Convert.hs` to `GHC.ThToHs`.
* Fix typo:
for instance, `GHC.Core.TyCo.Rep.hs` to `GHC.Core.TyCo.Rep`
See also !3375
[1]: https://gitlab.haskell.org/ghc/ghc/-/wikis/Make-GHC-codebase-more-modular
[2]: https://gitlab.haskell.org/ghc/ghc/issues/13009
Diffstat (limited to 'compiler/GHC/StgToCmm')
-rw-r--r-- | compiler/GHC/StgToCmm/Bind.hs | 4 | ||||
-rw-r--r-- | compiler/GHC/StgToCmm/Closure.hs | 2 | ||||
-rw-r--r-- | compiler/GHC/StgToCmm/DataCon.hs | 2 | ||||
-rw-r--r-- | compiler/GHC/StgToCmm/Env.hs | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/compiler/GHC/StgToCmm/Bind.hs b/compiler/GHC/StgToCmm/Bind.hs index 839d34b0e4..5402b6239b 100644 --- a/compiler/GHC/StgToCmm/Bind.hs +++ b/compiler/GHC/StgToCmm/Bind.hs @@ -82,7 +82,7 @@ cgTopRhsClosure dflags rec id ccs upd_flag args body = -- shortcutting the whole process, and generating a lot less code -- (#7308). Eventually the IND_STATIC closure will be eliminated -- by assembly '.equiv' directives, where possible (#15155). - -- See note [emit-time elimination of static indirections] in CLabel. + -- See note [emit-time elimination of static indirections] in "GHC.Cmm.CLabel". -- -- Note: we omit the optimisation when this binding is part of a -- recursive group, because the optimisation would inhibit the black @@ -206,7 +206,7 @@ cgRhs id (StgRhsCon cc con args) -- con args are always non-void, -- see Note [Post-unarisation invariants] in GHC.Stg.Unarise -{- See Note [GC recovery] in compiler/GHC.StgToCmm/Closure.hs -} +{- See Note [GC recovery] in "GHC.StgToCmm.Closure" -} cgRhs id (StgRhsClosure fvs cc upd_flag args body) = do dflags <- getDynFlags mkRhsClosure dflags id cc (nonVoidIds (dVarSetElems fvs)) upd_flag args body diff --git a/compiler/GHC/StgToCmm/Closure.hs b/compiler/GHC/StgToCmm/Closure.hs index 7f29d43bca..2c1176c197 100644 --- a/compiler/GHC/StgToCmm/Closure.hs +++ b/compiler/GHC/StgToCmm/Closure.hs @@ -870,7 +870,7 @@ mkClosureInfoTableLabel id lf_info -- Make the _info pointer for the implicit datacon worker -- binding local. The reason we can do this is that importing -- code always either uses the _closure or _con_info. By the - -- invariants in CorePrep anything else gets eta expanded. + -- invariants in "GHC.CoreToStg.Prep" anything else gets eta expanded. thunkEntryLabel :: DynFlags -> Name -> CafInfo -> StandardFormInfo -> Bool -> CLabel diff --git a/compiler/GHC/StgToCmm/DataCon.hs b/compiler/GHC/StgToCmm/DataCon.hs index 752d4df681..3f4c94abdd 100644 --- a/compiler/GHC/StgToCmm/DataCon.hs +++ b/compiler/GHC/StgToCmm/DataCon.hs @@ -71,7 +71,7 @@ cgTopRhsCon dflags id con args -- For External bindings we must keep the binding, -- since importing modules will refer to it by name; -- but for Internal ones we can drop it altogether - -- See Note [About the NameSorts] in Name.hs for Internal/External + -- See Note [About the NameSorts] in "GHC.Types.Name" for Internal/External (static_info, static_code) -- Otherwise generate a closure for the constructor. diff --git a/compiler/GHC/StgToCmm/Env.hs b/compiler/GHC/StgToCmm/Env.hs index 03c53db979..9ee04c0617 100644 --- a/compiler/GHC/StgToCmm/Env.hs +++ b/compiler/GHC/StgToCmm/Env.hs @@ -136,7 +136,7 @@ getCgIdInfo id let ext_lbl | isUnliftedType (idType id) = -- An unlifted external Id must refer to a top-level - -- string literal. See Note [Bytes label] in CLabel. + -- string literal. See Note [Bytes label] in "GHC.Cmm.CLabel". ASSERT( idType id `eqType` addrPrimTy ) mkBytesLabel name | otherwise = mkClosureLabel name $ idCafInfo id |