diff options
| author | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 20:17:17 +0000 |
|---|---|---|
| committer | Michael D. Adams <adamsmd@cs.indiana.edu> | 2007-07-15 20:17:17 +0000 |
| commit | ff128a16a6db12e369b7b2d83bf78dc89ebcd603 (patch) | |
| tree | 5955dda2476105cf6e4e017b8c9880882e0aca73 | |
| parent | 7bfd7890bcf6f27d601604a0964975ba2e4ea2eb (diff) | |
| download | haskell-ff128a16a6db12e369b7b2d83bf78dc89ebcd603.tar.gz | |
Removed unused variable from compiler/cmm/CmmCPS.hs
| -rw-r--r-- | compiler/cmm/CmmCPS.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs index f098941529..1cb5f30cc6 100644 --- 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 |