From: Michael D. Adams <adamsmd@cs.indiana.edu>
Date: Sun, 15 Jul 2007 20:17:17 +0000 (+0000)
Subject: Removed unused variable from compiler/cmm/CmmCPS.hs
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ff128a16a6db12e369b7b2d83bf78dc89ebcd603;p=ghc-hetmet.git

Removed unused variable from compiler/cmm/CmmCPS.hs
---

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