actuals = map (\x -> (CmmReg (CmmLocal x), NoHint)) formals
fun_expr = CmmLit (CmmLabel fun_label)
-force_gc_block old_info block_id fun_label formals blocks =
+force_gc_block old_info block_id fun_label formals =
case old_info of
CmmNonInfo (Just _) -> (old_info, [])
CmmInfo _ (Just _) _ _ -> (old_info, [])
-- Ensure that
forced_gc :: (CmmInfo, [CmmBasicBlock])
- forced_gc = force_gc_block info (BlockId gc_unique) ident params blocks
+ forced_gc = force_gc_block info (BlockId gc_unique) ident params
forced_info = fst forced_gc
forced_blocks = blocks ++ snd forced_gc