diff options
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmSpillReload.hs | 3 | ||||
| -rw-r--r-- | compiler/cmm/ZipCfg.hs | 3 | ||||
| -rw-r--r-- | compiler/cmm/ZipCfgCmmRep.hs | 3 | ||||
| -rw-r--r-- | compiler/cmm/ZipDataflow0.hs | 2 |
4 files changed, 4 insertions, 7 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 diff --git a/compiler/cmm/ZipCfg.hs b/compiler/cmm/ZipCfg.hs index 85727a3bb4..1b9b5c309d 100644 --- a/compiler/cmm/ZipCfg.hs +++ b/compiler/cmm/ZipCfg.hs @@ -688,6 +688,9 @@ mkBlockSet = mkUniqSet instance (Outputable m, Outputable l) => Outputable (ZTail m l) where ppr = pprTail +instance (Outputable m, Outputable l, LastNode l) => Outputable (LGraph m l) where + ppr = pprLgraph + pprTail :: (Outputable m, Outputable l) => ZTail m l -> SDoc pprTail (ZTail m t) = ppr m $$ ppr t pprTail (ZLast LastExit) = text "<exit>" diff --git a/compiler/cmm/ZipCfgCmmRep.hs b/compiler/cmm/ZipCfgCmmRep.hs index f0dc535ced..0667b7e091 100644 --- a/compiler/cmm/ZipCfgCmmRep.hs +++ b/compiler/cmm/ZipCfgCmmRep.hs @@ -197,9 +197,6 @@ instance Outputable Convention where instance DF.DebugNodes Middle Last -instance Outputable CmmGraph where - ppr = pprLgraph - debugPpr :: Bool debugPpr = debugIsOn diff --git a/compiler/cmm/ZipDataflow0.hs b/compiler/cmm/ZipDataflow0.hs index 3a3b0a8b75..7503d45104 100644 --- a/compiler/cmm/ZipDataflow0.hs +++ b/compiler/cmm/ZipDataflow0.hs @@ -244,7 +244,7 @@ fold_edge_facts_with_nodes_b :: LastNode l -- fixed point iteratively starting from somewhere other than bottom -- (as in the reachability analysis done for proc points). -class (Outputable m, Outputable l, LastNode l, Outputable (LGraph m l)) => DebugNodes m l +class (Outputable m, Outputable l, LastNode l) => DebugNodes m l refine_f_anal :: (DebugNodes m l, LastNode l, Outputable a) => FAnalysis m l a -> LGraph m l -> DFA a () -> DFA a () |
