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/CgHeapery.lhs | |
| parent | 9ee9e518fe485107c9a21fed68a7dcc86fe08b4c (diff) | |
| download | haskell-1cb4a07cf284444ed89057f4661db100ea740dc5.tar.gz | |
Remove unused argument field on CmmJump
Diffstat (limited to 'compiler/codeGen/CgHeapery.lhs')
| -rw-r--r-- | compiler/codeGen/CgHeapery.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgHeapery.lhs b/compiler/codeGen/CgHeapery.lhs index 03b5deb058..d8ac298b58 100644 --- a/compiler/codeGen/CgHeapery.lhs +++ b/compiler/codeGen/CgHeapery.lhs @@ -464,7 +464,7 @@ do_checks' stk_expr hp_expr stk_nonzero hp_nonzero reg_save_code rts_lbl -- the appropriate RTS stub. ; exit_blk_id <- forkLabelledCode $ do { ; emitStmts reg_save_code - ; stmtC (CmmJump rts_lbl []) } + ; stmtC (CmmJump rts_lbl) } -- In the case of a heap-check failure, we must also set -- HpAlloc. NB. HpAlloc is *only* set if Hp has been |