diff options
| author | benl@ouroborus.net <unknown> | 2010-10-13 01:54:14 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-10-13 01:54:14 +0000 |
| commit | 09732d3c8ba3b8ab3ebfc5596cc8fdd7f2bb100f (patch) | |
| tree | 4d64c2197aeb2fe7df8369724cb87e20f4bdb3e8 /compiler/nativeGen/RegAlloc/Graph/SpillCost.hs | |
| parent | 2ea237998122126f092e3d39482b2f0a95fe0a99 (diff) | |
| download | haskell-09732d3c8ba3b8ab3ebfc5596cc8fdd7f2bb100f.tar.gz | |
RegAlloc: Track slot liveness over jumps in spill cleaner
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/SpillCost.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/SpillCost.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs index 152d70b966..0dc25f58d2 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs @@ -78,7 +78,7 @@ slurpSpillCostInfo cmm -- lookup the regs that are live on entry to this block in -- the info table from the CmmProc countBlock info (BasicBlock blockId instrs) - | LiveInfo _ _ (Just blockLive) <- info + | LiveInfo _ _ (Just blockLive) _ <- info , Just rsLiveEntry <- lookupBlockEnv blockLive blockId , rsLiveEntry_virt <- takeVirtuals rsLiveEntry = countLIs rsLiveEntry_virt instrs |