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); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
