X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmCPS.hs;h=3d14f190d328f98bc71814d8571d487dd051e488;hb=48fb2b521898998a17873ad6cf30610aa5ab6db3;hp=53f54bf5a6efdcc43dfde1d9914669d0eac442a2;hpb=b44b0befe2b60cc9c4e4f8313bbb8b6207ad047c;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmCPS.hs b/compiler/cmm/CmmCPS.hs
index 53f54bf..3d14f19 100644
--- a/compiler/cmm/CmmCPS.hs
+++ b/compiler/cmm/CmmCPS.hs
@@ -19,7 +19,6 @@ import CmmUtils
 
 import ClosureInfo
 import MachOp
-import ForeignCall
 import CLabel
 import SMRep
 import Constants
@@ -112,10 +111,9 @@ 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
+      proc_uniques = map (map (map uniqsFromSupply . listSplitUniqSupply) . listSplitUniqSupply) $ listSplitUniqSupply uniqSupply2
 
       stack_use = CmmLocal (LocalReg stack_use_unique (cmmRegRep spReg) KindPtr)
       stack_check_block_id = BlockId stack_check_block_unique