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:
7bfd789
)
Removed unused variable from compiler/cmm/CmmCPS.hs
author
Michael D. Adams
<adamsmd@cs.indiana.edu>
Sun, 15 Jul 2007 20:17:17 +0000
(20:17 +0000)
committer
Michael D. Adams
<adamsmd@cs.indiana.edu>
Sun, 15 Jul 2007 20:17:17 +0000
(20:17 +0000)
compiler/cmm/CmmCPS.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmCPS.hs
b/compiler/cmm/CmmCPS.hs
index
f098941
..
1cb5f30
100644
(file)
--- a/
compiler/cmm/CmmCPS.hs
+++ b/
compiler/cmm/CmmCPS.hs
@@
-111,8
+111,7
@@
cpsProc uniqSupply (CmmProc info ident params blocks) = cps_procs
(uniqSupply1, uniqSupply2) = splitUniqSupply uniqSupply
uniques :: [[Unique]]
uniques = map uniqsFromSupply $ listSplitUniqSupply uniqSupply1
- (stack_check_block_unique:stack_use_unique:info_uniques) :
- adaptor_uniques :
+ (stack_check_block_unique:stack_use_unique:adaptor_uniques) :
block_uniques = uniques
proc_uniques = map (map uniqsFromSupply . listSplitUniqSupply) $ listSplitUniqSupply uniqSupply2