diff options
| author | David Terei <davidterei@gmail.com> | 2011-12-22 14:40:22 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-01-05 17:05:42 -0800 |
| commit | 1cb4a07cf284444ed89057f4661db100ea740dc5 (patch) | |
| tree | f2308443d9f2a0f9bb4c74bcbc7334f3a69247e2 /compiler/cmm/CmmOpt.hs | |
| parent | 9ee9e518fe485107c9a21fed68a7dcc86fe08b4c (diff) | |
| download | haskell-1cb4a07cf284444ed89057f4661db100ea740dc5.tar.gz | |
Remove unused argument field on CmmJump
Diffstat (limited to 'compiler/cmm/CmmOpt.hs')
| -rw-r--r-- | compiler/cmm/CmmOpt.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cmm/CmmOpt.hs b/compiler/cmm/CmmOpt.hs index 007b7a715e..649dbb578c 100644 --- a/compiler/cmm/CmmOpt.hs +++ b/compiler/cmm/CmmOpt.hs @@ -65,7 +65,7 @@ cmmEliminateDeadBlocks blocks@(BasicBlock base_id _:_) = stmt m (CmmBranch b) = b:m stmt m (CmmCondBranch e b) = b:(expr m e) stmt m (CmmSwitch e bs) = catMaybes bs ++ expr m e - stmt m (CmmJump e as) = expr (actuals m as) e + stmt m (CmmJump e) = expr m e stmt m (CmmReturn as) = actuals m as actuals m as = foldl' (\m h -> expr m (hintlessCmm h)) m as -- We have to do a deep fold into CmmExpr because @@ -273,7 +273,7 @@ inlineStmt u a (CmmCall target regs es ret) es' = [ (CmmHinted (inlineExpr u a e) hint) | (CmmHinted e hint) <- es ] inlineStmt u a (CmmCondBranch e d) = CmmCondBranch (inlineExpr u a e) d inlineStmt u a (CmmSwitch e d) = CmmSwitch (inlineExpr u a e) d -inlineStmt u a (CmmJump e d) = CmmJump (inlineExpr u a e) d +inlineStmt u a (CmmJump e) = CmmJump (inlineExpr u a e) inlineStmt _ _ other_stmt = other_stmt inlineExpr :: Unique -> CmmExpr -> CmmExpr -> CmmExpr @@ -669,7 +669,7 @@ cmmLoopifyForC (CmmProc (Just info@(Statics info_lbl _)) entry_lbl where blocks' = [ BasicBlock id (map do_stmt stmts) | BasicBlock id stmts <- blocks ] - do_stmt (CmmJump (CmmLit (CmmLabel lbl)) _) | lbl == jump_lbl + do_stmt (CmmJump (CmmLit (CmmLabel lbl))) | lbl == jump_lbl = CmmBranch top_id do_stmt stmt = stmt |