diff options
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen/Expand.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/Expand.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Expand.hs b/compiler/nativeGen/SPARC/CodeGen/Expand.hs index 2becccb30d..d4500e8a8e 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 |