diff options
Diffstat (limited to 'compiler/cmm/OldCmm.hs')
| -rw-r--r-- | compiler/cmm/OldCmm.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/compiler/cmm/OldCmm.hs b/compiler/cmm/OldCmm.hs index 6c1031b369..00bbe6d2ee 100644 --- a/compiler/cmm/OldCmm.hs +++ b/compiler/cmm/OldCmm.hs @@ -213,8 +213,8 @@ instance UserOfLocalRegs CmmStmt where gen a set = foldRegsUsed f set a instance UserOfLocalRegs CmmCallTarget where - foldRegsUsed f set (CmmCallee e _) = foldRegsUsed f set e - foldRegsUsed _ set (CmmPrim {}) = set + foldRegsUsed f set (CmmCallee e _) = foldRegsUsed f set e + foldRegsUsed f set (CmmPrim _ mStmts) = foldRegsUsed f set mStmts instance UserOfLocalRegs a => UserOfLocalRegs (CmmHinted a) where foldRegsUsed f set a = foldRegsUsed f set (hintlessCmm a) @@ -277,5 +277,8 @@ data CmmCallTarget | CmmPrim -- Call a "primitive" (eg. sin, cos) CallishMachOp -- These might be implemented as inline -- code by the backend. - deriving Eq + -- If we don't know how to implement the + -- mach op, then we can replace it with + -- this list of statements: + (Maybe [CmmStmt]) |