diff options
| -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 |