From: Michael D. Adams <t-madams@microsoft.com>
Date: Thu, 28 Jun 2007 10:17:34 +0000 (+0000)
Subject: Remove unused parameter in force_gc_block for CPS
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f96fcdc91b424aafca4d06572864fd20c475eaa0;p=ghc-hetmet.git

Remove unused parameter in force_gc_block for CPS
---

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