diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2023-03-22 18:08:05 -0400 |
|---|---|---|
| committer | Rodrigo Mesquita <rodrigo.m.mesquita@gmail.com> | 2023-05-08 10:27:00 +0100 |
| commit | 96bdef3aa279964f8ca174de1eaf81d37a3e7028 (patch) | |
| tree | 3f94431e787386d6c40c4181292520f62d62b812 | |
| parent | cf76eca02f1d83762d8a9c12d5006d54fec3bd3d (diff) | |
| download | haskell-96bdef3aa279964f8ca174de1eaf81d37a3e7028.tar.gz | |
codeGen: Fix some Haddocks
| -rw-r--r-- | compiler/GHC/StgToCmm/Env.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/StgToCmm/Monad.hs | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/compiler/GHC/StgToCmm/Env.hs b/compiler/GHC/StgToCmm/Env.hs index f89c5304a1..a2e46dfe12 100644 --- a/compiler/GHC/StgToCmm/Env.hs +++ b/compiler/GHC/StgToCmm/Env.hs @@ -83,8 +83,8 @@ mkRhsInit :: Platform -> LocalReg -> LambdaFormInfo -> CmmExpr -> CmmAGraph mkRhsInit platform reg lf_info expr = mkAssign (CmmLocal reg) (addDynTag platform expr (lfDynTag platform lf_info)) +-- | Returns a 'CmmExpr' for the *tagged* pointer idInfoToAmode :: CgIdInfo -> CmmExpr --- Returns a CmmExpr for the *tagged* pointer idInfoToAmode CgIdInfo { cg_loc = CmmLoc e } = e idInfoToAmode cg_info = pprPanic "idInfoToAmode" (ppr (cg_id cg_info)) -- LneLoc diff --git a/compiler/GHC/StgToCmm/Monad.hs b/compiler/GHC/StgToCmm/Monad.hs index 9f9d292937..614464befe 100644 --- a/compiler/GHC/StgToCmm/Monad.hs +++ b/compiler/GHC/StgToCmm/Monad.hs @@ -188,9 +188,11 @@ type CgBindings = IdEnv CgIdInfo data CgIdInfo = CgIdInfo - { cg_id :: Id -- Id that this is the info for + { cg_id :: Id + -- ^ Id that this is the info for , cg_lf :: LambdaFormInfo - , cg_loc :: CgLoc -- CmmExpr for the *tagged* value + , cg_loc :: CgLoc + -- ^ 'CmmExpr' for the *tagged* value } instance OutputableP Platform CgIdInfo where |