diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-12-26 17:49:04 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-12-26 17:49:04 +0000 |
| commit | 5a7a311051c2a525c9692a7b2eb47a70cfc7c9fb (patch) | |
| tree | 2322f790c94ab11a468511e09bd61cb0ba139327 /compiler/cmm/CmmSpillReload.hs | |
| parent | c886dd30160f26f69336adc7dfc3aab5b89a4dfb (diff) | |
| download | haskell-5a7a311051c2a525c9692a7b2eb47a70cfc7c9fb.tar.gz | |
move and generalize another instance (#1405)
was instance Outputable CmmGraph
type CmmGraph = LGraph Middle Last
now instance (ctx) => Outputable (LGraph m l),
in module with LGraph where it belongs
This also let us reduce the context of DebugNodes to Haskell98,
leaving that class's only extension being multi-parameter.
(also Outputable (LGraph M Last) with M = ExtendWithSpills Middle
was another redundant instance that was then removed)
Diffstat (limited to 'compiler/cmm/CmmSpillReload.hs')
| -rw-r--r-- | compiler/cmm/CmmSpillReload.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs index 4067f89fb1..0c53309657 100644 --- a/compiler/cmm/CmmSpillReload.hs +++ b/compiler/cmm/CmmSpillReload.hs @@ -360,9 +360,6 @@ instance Outputable m => Outputable (ExtendWithSpills m) where ppr (Reload regs) = ppr_regs "Reload" regs ppr (NotSpillOrReload m) = ppr m -instance Outputable (LGraph M Last) where - ppr = pprLgraph - instance DebugNodes M Last ppr_regs :: String -> RegSet -> SDoc |