Skip to content

GitLab

Commit ff128a16 authored by Michael D. Adams's avatar Michael D. Adams
Browse files

Removed unused variable from compiler/cmm/CmmCPS.hs

parent 7bfd7890
Hide whitespace changes
Inline Side-by-side
compiler/cmm/CmmCPS.hs
View file @ ff128a16
...@@ -111,8 +111,7 @@ cpsProc uniqSupply (CmmProc info ident params blocks) = cps_procs ...@@ -111,8 +111,7 @@ cpsProc uniqSupply (CmmProc info ident params blocks) = cps_procs
(uniqSupply1, uniqSupply2) = splitUniqSupply uniqSupply (uniqSupply1, uniqSupply2) = splitUniqSupply uniqSupply
uniques :: [[Unique]] uniques :: [[Unique]]
uniques = map uniqsFromSupply $ listSplitUniqSupply uniqSupply1 uniques = map uniqsFromSupply $ listSplitUniqSupply uniqSupply1
(stack_check_block_unique:stack_use_unique:info_uniques) : (stack_check_block_unique:stack_use_unique:adaptor_uniques) :
adaptor_uniques :
block_uniques = uniques block_uniques = uniques
proc_uniques = map (map uniqsFromSupply . listSplitUniqSupply) $ listSplitUniqSupply uniqSupply2 proc_uniques = map (map uniqsFromSupply . listSplitUniqSupply) $ listSplitUniqSupply uniqSupply2
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment