diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:17:51 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:17:51 +0000 |
| commit | c9c4951cc1d76273be541fc4791e131e418956aa (patch) | |
| tree | 36d21773a02b6dd322f4219e97be81c7f62150c4 | |
| parent | 1f46671fe24c7155ee64091b71b77dd66909e7a0 (diff) | |
| download | haskell-c9c4951cc1d76273be541fc4791e131e418956aa.tar.gz | |
Formatting only
| -rw-r--r-- | compiler/cmm/CmmBrokenBlock.hs | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index b90b1a6931..a968484b44 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) |