From bdfa9495e95ba5701f27711b27d8e22ae7bb8335 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Tue, 29 May 2007 15:04:36 +0000 Subject: [PATCH] Minor code cleanup --- compiler/cmm/CmmCPS.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs index 33d21ee..2726ef8 100644 --- a/compiler/cmm/CmmCPS.hs +++ b/compiler/cmm/CmmCPS.hs @@ -10,10 +10,11 @@ import Cmm import CmmLint import PprCmm -import Dataflow (fixedpoint) +import Dataflow import CmmLive import CmmBrokenBlock import CmmProcPoint +import CmmCallConv import MachOp import ForeignCall @@ -217,8 +218,6 @@ selectStackFormat live continuations = map (\c -> (continuationLabel c, selectStackFormat' c)) continuations where selectStackFormat' (Continuation True info_table label formals blocks) = - --let ident = brokenBlockId $ head blocks -- TODO: CLabel isn't a uniquable, but we need a better way than this - --in StackFormat (Just label) 0 [] selectStackFormat' (Continuation False info_table label formals blocks) = -- TODO: assumes the first block is the entry block @@ -297,7 +296,7 @@ enter_function max_frame_size (CmmMachOp (MO_U_Lt $ cmmRegRep spReg) [CmmRegOff spReg max_frame_size, CmmReg spLimReg]) gc_block] - gc_block = undefined -- TODO: get stack and heap checks to go to same + gc_block = panic "gc_check not implemented" -- TODO: get stack and heap checks to go to same -- TODO: fix branches to proc point (we have to insert a new block to marshel the continuation) pack_continuation :: StackFormat -> StackFormat -> [CmmStmt] -- 1.7.10.4