NCG: Allow the liveness map in a LiveInfo to be Nothing

[ghc-hetmet.git] / compiler / nativeGen / RegAlloc / Graph / SpillCost.hs

diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
index 9de48d5..58e9580 100644 (file)
--- a/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
+++ b/compiler/nativeGen/RegAlloc/Graph/SpillCost.hs
@@ -80,7 +80,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 _ _ blockLive        <- info
+               | LiveInfo _ _ (Just blockLive) <- info
                , Just rsLiveEntry              <- lookupBlockEnv blockLive blockId
 
                , rsLiveEntry_virt      <- mapUniqSet (\(RegVirtual vr) -> vr)