X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgPrimOp.hs;h=c1264be62f77e628a0fffb046bf7e6f48c5c44a2;hb=608bc3f3ad6fca14a23529f314dbd9d3342a9507;hp=7de4516af75c210841112015d928cbb0fa9e2635;hpb=7b2ff4cc95ce49081d84c25184aec796377fbc35;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgPrimOp.hs b/ghc/compiler/codeGen/CgPrimOp.hs
index 7de4516..c1264be 100644
--- 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) \