projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
63b9fc6
)
Remove unused parameter in force_gc_block for CPS
author
Michael D. Adams
<t-madams@microsoft.com>
Thu, 28 Jun 2007 10:17:34 +0000
(10:17 +0000)
committer
Michael D. Adams
<t-madams@microsoft.com>
Thu, 28 Jun 2007 10:17:34 +0000
(10:17 +0000)
compiler/cmm/CmmCPS.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmCPS.hs
b/compiler/cmm/CmmCPS.hs
index
e4a17a9
..
25683ee
100644
(file)
--- 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)
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, [])
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])
-- 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
forced_info = fst forced_gc
forced_blocks = blocks ++ snd forced_gc