NCGMonad
PositionIndependentCode
PprMach
- RegLiveness
RegAllocInfo
+ RegAlloc.Liveness
RegAlloc.Graph.Main
RegAlloc.Graph.Stats
RegAlloc.Graph.ArchBase
import RegAllocInfo
import NCGMonad
import PositionIndependentCode
-import RegLiveness
+import RegAlloc.Liveness
import qualified RegAlloc.Linear.Main as Linear
import Cmm
import Regs
-import RegLiveness
+import RegAlloc.Liveness
import RegAllocInfo
import Bag
where
import qualified GraphColor as Color
-import RegLiveness
+import RegAlloc.Liveness
import RegAlloc.Graph.Spill
import RegAlloc.Graph.SpillClean
import RegAlloc.Graph.SpillCost
where
-import RegLiveness
+import RegAlloc.Liveness
import RegAllocInfo
import Regs
import Instrs
where
import BlockId
-import RegLiveness
+import RegAlloc.Liveness
import RegAllocInfo
import Regs
import Instrs
where
import GraphBase
-import RegLiveness
+import RegAlloc.Liveness
import RegAllocInfo
import Instrs
import Regs
= countLIs rsLiveEntry instrs
| otherwise
- = error "RegLiveness.slurpSpillCostInfo: bad block"
+ = error "RegAlloc.SpillCost.slurpSpillCostInfo: bad block"
countLIs _ []
= return ()
#include "nativeGen/NCG.h"
import qualified GraphColor as Color
-import RegLiveness
+import RegAlloc.Liveness
import RegAllocInfo
import RegAlloc.Graph.Spill
import RegAlloc.Graph.SpillCost
import RegAlloc.Linear.FreeRegs
import RegAlloc.Linear.StackMap
-
-import RegLiveness
+import RegAlloc.Liveness
import Regs
import Outputable
import RegAlloc.Linear.State
import RegAlloc.Linear.Base
import RegAlloc.Linear.FreeRegs
+import RegAlloc.Liveness
import BlockId
import Instrs
import Regs
import RegAllocInfo
-import RegLiveness
import Cmm hiding (RegSet)
import Digraph
import RegAlloc.Linear.FreeRegs
import RegAlloc.Linear.Stats
import RegAlloc.Linear.JoinToTargets
+import RegAlloc.Liveness
import BlockId
import Regs
import Instrs
import RegAllocInfo
-import RegLiveness
import Cmm hiding (RegSet)
import Digraph
import RegAlloc.Linear.StackMap
import RegAlloc.Linear.Base
import RegAlloc.Linear.FreeRegs
+import RegAlloc.Liveness
import Instrs
import Regs
import RegAllocInfo
-import RegLiveness
import Unique
import UniqSupply
where
import RegAlloc.Linear.Base
-import RegLiveness
+import RegAlloc.Liveness
+
import RegAllocInfo
import Instrs
import Cmm (GenBasicBlock(..))
-----------------------------------------------------------------------------
{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
-module RegLiveness (
+module RegAlloc.Liveness (
RegSet,
RegMap, emptyRegMap,
BlockMap, emptyBlockMap,