From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 7 Apr 2010 09:27:24 +0000 (+0000)
Subject: get the reg liveness right in the putMVar# heap check
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0714abaf0b190439631866132a5bf53c8d3a5d69

get the reg liveness right in the putMVar# heap check
---

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 892ef68..d09a856 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1326,7 +1326,7 @@ stg_putMVarzh
     if (StgMVar_value(mvar) != stg_END_TSO_QUEUE_closure) {
 
         // see Note [mvar-heap-check] above
-        HP_CHK_GEN_TICKY(SIZEOF_StgMVarTSOQueue, R1_PTR|R2_PTR, stg_putMVarzh);
+        HP_CHK_GEN_TICKY(SIZEOF_StgMVarTSOQueue, R1_PTR & R2_PTR, stg_putMVarzh);
 
         q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);