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/codeGen/CgTailCall.lhs | |
| parent | 9ee9e518fe485107c9a21fed68a7dcc86fe08b4c (diff) | |
| download | haskell-1cb4a07cf284444ed89057f4661db100ea740dc5.tar.gz | |
Remove unused argument field on CmmJump
Diffstat (limited to 'compiler/codeGen/CgTailCall.lhs')
| -rw-r--r-- | compiler/codeGen/CgTailCall.lhs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs index fb8f854c0b..07be7f23fa 100644 --- a/compiler/codeGen/CgTailCall.lhs +++ b/compiler/codeGen/CgTailCall.lhs @@ -123,7 +123,7 @@ performTailCall fun_info arg_amodes pending_assts EnterIt -> do { emitSimultaneously (node_asst `plusStmts` pending_assts) ; let target = entryCode (closureInfoPtr (CmmReg nodeReg)) - enterClosure = stmtC (CmmJump target []) + enterClosure = stmtC (CmmJump target) -- If this is a scrutinee -- let's check if the closure is a constructor -- so we can directly jump to the alternatives switch @@ -203,7 +203,7 @@ performTailCall fun_info arg_amodes pending_assts -- No, enter the closure. ; enterClosure ; labelC is_constr - ; stmtC (CmmJump (entryCode $ CmmLit (CmmLabel lbl)) []) + ; stmtC (CmmJump (entryCode $ CmmLit (CmmLabel lbl))) } {- -- This is a scrutinee for a case expression @@ -218,7 +218,7 @@ performTailCall fun_info arg_amodes pending_assts ; stmtC (CmmCondBranch (cond1 tag) no_cons) ; stmtC (CmmCondBranch (cond2 tag) no_cons) -- Yes, jump to switch statement - ; stmtC (CmmJump (CmmLit (CmmLabel lbl)) []) + ; stmtC (CmmJump (CmmLit (CmmLabel lbl))) ; labelC no_cons -- No, enter the closure. ; enterClosure @@ -438,9 +438,9 @@ pushReturnAddress _ = nopC -- ----------------------------------------------------------------------------- -- Misc. -jumpToLbl :: CLabel -> Code -- Passes no argument to the destination procedure -jumpToLbl lbl = stmtC (CmmJump (CmmLit (CmmLabel lbl)) [{- No args -}]) +jumpToLbl :: CLabel -> Code +jumpToLbl lbl = stmtC (CmmJump (CmmLit (CmmLabel lbl))) assignToRegs :: [(CmmExpr, GlobalReg)] -> CmmStmts assignToRegs reg_args |