From: Michael D. Adams <t-madams@microsoft.com>
Date: Tue, 29 May 2007 15:02:06 +0000 (+0000)
Subject: Fix bug with proc-point detection (only a temporary fix)
X-Git-Tag: Before_type_family_merge~627
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=7b1eed64afc271b35147e741dd24265c4774aca0;p=ghc-hetmet.git

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

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