From f96fcdc91b424aafca4d06572864fd20c475eaa0 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Thu, 28 Jun 2007 10:17:34 +0000 Subject: [PATCH] Remove unused parameter in force_gc_block for CPS --- compiler/cmm/CmmCPS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs index e4a17a9..25683ee 100644 --- a/compiler/cmm/CmmCPS.hs +++ b/compiler/cmm/CmmCPS.hs @@ -79,7 +79,7 @@ make_gc_block block_id fun_label formals safety = BasicBlock block_id stmts 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, []) @@ -114,7 +114,7 @@ cpsProc uniqSupply (CmmProc info ident params blocks) = info_procs -- 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 -- 1.7.10.4