Commit 7b1eed64 authored by Michael D. Adams's avatar Michael D. Adams
Browse files

Fix bug with proc-point detection (only a temporary fix)

parent a6af1f12
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment