X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLive.hs;fp=compiler%2Fcmm%2FCmmLive.hs;h=958ba8182124117425ef2587fe1aa67bc3be486e;hb=1c5499d4d5d506ce0cc971e98c09bfbf7bc290a1;hp=bee3c65b07b7a24945353effd8847e61a0f05a84;hpb=474b582b68ea9289f3da4355da816164138604b0;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs
index bee3c65..958ba81 100644
--- a/compiler/cmm/CmmLive.hs
+++ b/compiler/cmm/CmmLive.hs
@@ -176,7 +176,7 @@ cmmStmtLive _ (CmmCall target results arguments _) =
     addKilled (mkUniqSet $ cmmHintFormalsToLiveLocals results) where
         target_liveness =
             case target of
-              (CmmForeignCall target _) -> cmmExprLive target
+              (CmmCallee target _) -> cmmExprLive target
               (CmmPrim _) -> id
 cmmStmtLive other_live (CmmBranch target) =
     addLive (lookupWithDefaultUFM other_live emptyUniqSet target)