diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-03-02 14:21:58 +0530 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-03-29 13:07:22 -0400 |
| commit | 789add55e0f5648981ffba77135b2a525369bf79 (patch) | |
| tree | 0ada054d9b11af3c650a53f7b076db1cfb147d64 /compiler/GHC/CmmToAsm/CFG.hs | |
| parent | 2c12627caba908153bf0af92459d08e399aa8aad (diff) | |
| download | haskell-789add55e0f5648981ffba77135b2a525369bf79.tar.gz | |
Fix all invalid haddock comments in the compiler
Fixes #20935 and #20924
Diffstat (limited to 'compiler/GHC/CmmToAsm/CFG.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/CFG.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/CmmToAsm/CFG.hs b/compiler/GHC/CmmToAsm/CFG.hs index 0a662d7ff9..8f8b71b1f7 100644 --- a/compiler/GHC/CmmToAsm/CFG.hs +++ b/compiler/GHC/CmmToAsm/CFG.hs @@ -712,7 +712,7 @@ optHsPatterns weights (CmmProc info _lab _live graph) cfg = increaseBackEdgeWeight (g_entry graph) $ cfg where - -- | Increase the weight of all backedges in the CFG + -- Increase the weight of all backedges in the CFG -- this helps to make loop jumpbacks the heaviest edges increaseBackEdgeWeight :: BlockId -> CFG -> CFG increaseBackEdgeWeight root cfg = @@ -725,7 +725,7 @@ optHsPatterns weights (CmmProc info _lab _live graph) cfg = in foldl' (\cfg edge -> updateEdgeWeight update edge cfg) cfg backedges - -- | Since we cant fall through info tables we penalize these. + -- Since we cant fall through info tables we penalize these. penalizeInfoTables :: LabelMap a -> CFG -> CFG penalizeInfoTables info cfg = mapWeights fupdate cfg @@ -736,7 +736,7 @@ optHsPatterns weights (CmmProc info _lab _live graph) cfg = = weight - (fromIntegral $ infoTablePenalty weights) | otherwise = weight - -- | If a block has two successors, favour the one with fewer + -- If a block has two successors, favour the one with fewer -- predecessors and/or the one allowing fall through. favourFewerPreds :: CFG -> CFG favourFewerPreds cfg = |