From: Norman Ramsey <nr@eecs.harvard.edu>
Date: Fri, 7 Sep 2007 17:08:43 +0000 (+0000)
Subject: no registers are available after a call
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9633cb085005b99caffec973272bff2901d683ab;p=ghc-hetmet.git

no registers are available after a call
---

diff --git a/compiler/cmm/CmmSpillReload.hs b/compiler/cmm/CmmSpillReload.hs
index 5601350..00372e5 100644
--- a/compiler/cmm/CmmSpillReload.hs
+++ b/compiler/cmm/CmmSpillReload.hs
@@ -265,6 +265,7 @@ middleAvail (NotSpillOrReload m) = middle m
         middle (CopyOut {})                    = id
 
 lastAvail :: AvailRegs -> Last -> LastOutFacts AvailRegs
+lastAvail _ (LastCall _ _ (Just k)) = LastOutFacts [(k, AvailRegs emptyRegSet)]
 lastAvail avail l = LastOutFacts $ map (\id -> (id, avail)) $ succs l