diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-03-15 13:01:16 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-03-15 13:25:16 +0000 |
| commit | bb7d711c4bb32096df938b30e1c455bc95420db5 (patch) | |
| tree | 95683115f86d7811efd3de7ce5349e3e9f6e6c6d /compiler/cmm/OldCmm.hs | |
| parent | 269b440beb4dc692eaeaea62543e430d0f516cff (diff) | |
| download | haskell-bb7d711c4bb32096df938b30e1c455bc95420db5.tar.gz | |
remove dead code
Diffstat (limited to 'compiler/cmm/OldCmm.hs')
| -rw-r--r-- | compiler/cmm/OldCmm.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/cmm/OldCmm.hs b/compiler/cmm/OldCmm.hs index e314ec1a45..6c1031b369 100644 --- a/compiler/cmm/OldCmm.hs +++ b/compiler/cmm/OldCmm.hs @@ -216,16 +216,9 @@ instance UserOfLocalRegs CmmCallTarget where foldRegsUsed f set (CmmCallee e _) = foldRegsUsed f set e foldRegsUsed _ set (CmmPrim {}) = set -instance UserOfSlots CmmCallTarget where - foldSlotsUsed f set (CmmCallee e _) = foldSlotsUsed f set e - foldSlotsUsed _ set (CmmPrim {}) = set - instance UserOfLocalRegs a => UserOfLocalRegs (CmmHinted a) where foldRegsUsed f set a = foldRegsUsed f set (hintlessCmm a) -instance UserOfSlots a => UserOfSlots (CmmHinted a) where - foldSlotsUsed f set a = foldSlotsUsed f set (hintlessCmm a) - instance DefinerOfLocalRegs a => DefinerOfLocalRegs (CmmHinted a) where foldRegsDefd f set a = foldRegsDefd f set (hintlessCmm a) |