From c9c4951cc1d76273be541fc4791e131e418956aa Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Wed, 27 Jun 2007 15:17:51 +0000 Subject: [PATCH] Formatting only --- compiler/cmm/CmmBrokenBlock.hs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index b90b1a6..a968484 100644 --- a/compiler/cmm/CmmBrokenBlock.hs +++ b/compiler/cmm/CmmBrokenBlock.hs @@ -140,13 +140,15 @@ breakBlock uniques (BasicBlock ident stmts) entry = block = do_call current_id entry accum_stmts exits next_id target results arguments -} - (CmmCall target results arguments srt:stmts) -> block : rest - where - next_id = BlockId $ head uniques - block = do_call current_id entry accum_stmts exits next_id - target results arguments - rest = breakBlock' (tail uniques) next_id - (ContinuationEntry (map fst results) srt) [] [] stmts + (CmmCall target results arguments (CmmSafe srt):stmts) -> + block : rest + where + next_id = BlockId $ head uniques + block = do_call current_id entry accum_stmts exits next_id + target results arguments + rest = breakBlock' (tail uniques) next_id + (ContinuationEntry (map fst results) srt) + [] [] stmts (s:stmts) -> breakBlock' uniques current_id entry (cond_branch_target s++exits) -- 1.7.10.4