diff options
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 4d5f44a8d3..b62c44fa81 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs @@ -94,7 +94,7 @@ slurpSpillCostInfo platform cfg 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 _ _ blockLive _ <- info , Just rsLiveEntry <- mapLookup blockId blockLive , rsLiveEntry_virt <- takeVirtuals rsLiveEntry = countLIs (loopMember blockId) rsLiveEntry_virt instrs |