import Instruction
import Reg
import Size
-import Cmm
+import OldCmm
import Outputable
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