import RegAllocInfo
import MachInstrs
import MachRegs
+import BlockId
import Cmm
import UniqFM
-- the info table from the CmmProc
countBlock info (BasicBlock blockId instrs)
| LiveInfo _ _ blockLive <- info
- , Just rsLiveEntry <- lookupUFM blockLive blockId
+ , Just rsLiveEntry <- lookupBlockEnv blockLive blockId
= countLIs rsLiveEntry instrs
| otherwise