From ff128a16a6db12e369b7b2d83bf78dc89ebcd603 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Sun, 15 Jul 2007 20:17:17 +0000 Subject: [PATCH] Removed unused variable from compiler/cmm/CmmCPS.hs --- compiler/cmm/CmmCPS.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs index f098941..1cb5f30 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 -- 1.7.10.4