From 7b1eed64afc271b35147e741dd24265c4774aca0 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Tue, 29 May 2007 15:02:06 +0000 Subject: [PATCH] Fix bug with proc-point detection (only a temporary fix) --- compiler/cmm/CmmBrokenBlock.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index b367216..49c41bb 100644 --- a/compiler/cmm/CmmBrokenBlock.hs +++ b/compiler/cmm/CmmBrokenBlock.hs @@ -129,11 +129,13 @@ breakBlock uniques (BasicBlock ident stmts) entry = -- Detect this special case to remain an inverse of -- 'cmmBlockFromBrokenBlock' + {- TODO: Interferes with proc point detection [CmmCall target results arguments, CmmBranch next_id] -> [block] where block = do_call current_id entry accum_stmts exits next_id target results arguments + -} (CmmCall target results arguments:stmts) -> block : rest where next_id = BlockId $ head uniques -- 1.7.10.4