[commit: ghc] master: fix bug in heap check in putMVar# (61bf570)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/61bf570619085ff7e4d6f7ca80a22568be99919a

>---------------------------------------------------------------

commit 61bf570619085ff7e4d6f7ca80a22568be99919a
Author: Simon Marlow <[email protected]>
Date:   Wed Oct 24 12:55:33 2012 +0100

    fix bug in heap check in putMVar#

>---------------------------------------------------------------

 rts/PrimOps.cmm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 993088a..67a0a5a 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1365,7 +1365,7 @@ stg_putMVarzh ( P_ mvar, /* :: MVar a */
         ALLOC_PRIM_WITH_CUSTOM_FAILURE
             (SIZEOF_StgMVarTSOQueue,
              unlockClosure(mvar, stg_MVAR_DIRTY_info);
-             GC_PRIM_P(stg_putMVarzh, mvar));
+             GC_PRIM_PP(stg_putMVarzh, mvar, val));
 
         q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);