X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FCodeGen%2FExpand.hs;h=d4500e8a8e6a217779cef5fbd95aed19e2bd706e;hp=2becccb30daabe148ccc81e47f305bed0e0cfd4e;hb=889c084e943779e76d19f2ef5e970ff655f511eb;hpb=f1a90f54590e5a7a32a9c3ef2950740922b1f425

diff --git a/compiler/nativeGen/SPARC/CodeGen/Expand.hs b/compiler/nativeGen/SPARC/CodeGen/Expand.hs
index 2becccb..d4500e8 100644
--- a/compiler/nativeGen/SPARC/CodeGen/Expand.hs
+++ b/compiler/nativeGen/SPARC/CodeGen/Expand.hs
@@ -14,7 +14,7 @@ import SPARC.Ppr	()
 import Instruction
 import Reg
 import Size
-import Cmm
+import OldCmm
 
 
 import Outputable
@@ -25,8 +25,8 @@ expandTop :: NatCmmTop Instr -> NatCmmTop Instr
 expandTop top@(CmmData{})
 	= top
 
-expandTop (CmmProc info lbl params (ListGraph blocks))
-	= CmmProc info lbl params (ListGraph $ map expandBlock blocks)
+expandTop (CmmProc info lbl (ListGraph blocks))
+	= CmmProc info lbl (ListGraph $ map expandBlock blocks)
 
 
 -- | Expand out synthetic instructions in this block