diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:01:33 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-06-27 15:01:33 +0000 |
| commit | 207802589da0d23c3f16195f453b24a1e46e322d (patch) | |
| tree | 2a17423ada08e5a890b17132440dda10c4f860bc /compiler/cmm/CmmBrokenBlock.hs | |
| parent | bb5c3f58b1da850b68e0745766f2786e538b5fbf (diff) | |
| download | haskell-207802589da0d23c3f16195f453b24a1e46e322d.tar.gz | |
Added pointerhood to LocalReg
This version should compile but is still incomplete as it introduces
potential bugs at the places marked 'TODO FIXME NOW'.
It is being recorded to help keep track of changes.
Diffstat (limited to 'compiler/cmm/CmmBrokenBlock.hs')
| -rw-r--r-- | compiler/cmm/CmmBrokenBlock.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index 49c41bb7bc..1d07631755 100644 --- a/compiler/cmm/CmmBrokenBlock.hs +++ b/compiler/cmm/CmmBrokenBlock.hs @@ -78,7 +78,7 @@ data FinalStmt BlockId -- ^ Target of the 'CmmGoto' -- (must be a 'ContinuationEntry') CmmCallTarget -- ^ The function to call - CmmFormals -- ^ Results from call + CmmHintFormals -- ^ Results from call -- (redundant with ContinuationEntry) CmmActuals -- ^ Arguments to call @@ -142,7 +142,7 @@ breakBlock uniques (BasicBlock ident stmts) entry = block = do_call current_id entry accum_stmts exits next_id target results arguments rest = breakBlock' (tail uniques) next_id - (ContinuationEntry results) [] [] stmts + (ContinuationEntry (map fst results)) [] [] stmts (s:stmts) -> breakBlock' uniques current_id entry (cond_branch_target s++exits) |