change dirty_MUT_VAR() to use recordMutableCap()

[ghc-hetmet.git] / ghc / compiler / codeGen / CgPrimOp.hs

diff --git a/ghc/compiler/codeGen/CgPrimOp.hs b/ghc/compiler/codeGen/CgPrimOp.hs
index 7de4516..c1264be 100644 (file)
--- a/ghc/compiler/codeGen/CgPrimOp.hs
+++ b/ghc/compiler/codeGen/CgPrimOp.hs
@@ -134,7 +134,8 @@ emitPrimOp [] WriteMutVarOp [mutv,var] live
        stmtC (CmmCall (CmmForeignCall (CmmLit (CmmLabel mkDirty_MUT_VAR_Label))
                                CCallConv) 
                        [{-no results-}]
-                       [(mutv,PtrHint)]
+                       [(CmmReg (CmmGlobal BaseReg), PtrHint),
+                        (mutv,PtrHint)]
                        (Just vols))
 
 --  #define sizzeofByteArrayzh(r,a) \