X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLiveZ.hs;h=07801be49f4d3980c3e982cbef77969f974c3b4a;hb=e4db45612e3efa59251239e1e0b8a0440783b966;hp=09ff52166b7a02b33ce02778d71485cfbb850fcb;hpb=09a416591da9ad89e0e6ca85e5093b6eb629a98e;p=ghc-hetmet.git

diff --git a/compiler/cmm/CmmLiveZ.hs b/compiler/cmm/CmmLiveZ.hs
index 09ff521..07801be 100644
--- a/compiler/cmm/CmmLiveZ.hs
+++ b/compiler/cmm/CmmLiveZ.hs
@@ -13,7 +13,7 @@ import CmmTx
 import DFMonad
 import PprCmm()
 import PprCmmZ()
-import ZipDataflow
+import ZipDataflow0
 import ZipCfgCmmRep
 
 import Maybes
@@ -60,6 +60,7 @@ middleLiveness m = middle m
         middle (MidAssign lhs expr)          = gen expr . kill lhs
         middle (MidStore addr rval)          = gen addr . gen rval
         middle (MidUnsafeCall tgt ress args) = gen tgt . gen args . kill ress
+        middle (MidAddToContext ra args)     = gen ra . gen args
         middle (CopyIn _ formals _)          = kill formals
         middle (CopyOut _ actuals)           = gen actuals