diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:04:21 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 17:04:21 +0000 |
| commit | 649d5ed52989f429d10283940793a06111aa8468 (patch) | |
| tree | bdd2695d46ed2232d8a3ae33774c9e48ad0f6af9 /compiler/cmm/CmmContFlowOpt.hs | |
| parent | 9f7dc57027046a350b57f99059f18819c2cf2ae2 (diff) | |
| download | haskell-649d5ed52989f429d10283940793a06111aa8468.tar.gz | |
Fix Haddock errors.
Diffstat (limited to 'compiler/cmm/CmmContFlowOpt.hs')
| -rw-r--r-- | compiler/cmm/CmmContFlowOpt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index b9a14afd7e..6909250efb 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -58,7 +58,7 @@ branchChainElim (ListGraph blocks) isLoneBranch :: CmmBasicBlock -> Either (BlockId, BlockId) CmmBasicBlock isLoneBranch (BasicBlock id [CmmBranch target]) | id /= target = Left (id, target) isLoneBranch other_block = Right other_block - -- ^ An infinite loop is not a link in a branch chain! + -- An infinite loop is not a link in a branch chain! replaceLabels :: BlockEnv BlockId -> CmmBasicBlock -> CmmBasicBlock replaceLabels env (BasicBlock id stmts) @@ -95,7 +95,7 @@ isLoneBranchZ :: CmmBlock -> Either (BlockId, BlockId) CmmBlock isLoneBranchZ (G.Block id (G.ZLast (G.LastOther (LastBranch target)))) | id /= target = Left (id,target) isLoneBranchZ other = Right other - -- ^ An infinite loop is not a link in a branch chain! + -- An infinite loop is not a link in a branch chain! replaceLabelsZ :: BlockEnv BlockId -> CmmGraph -> CmmGraph replaceLabelsZ env = replace_eid . G.map_nodes id id last |