diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:27:24 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-04-07 09:27:24 +0000 |
| commit | 0714abaf0b190439631866132a5bf53c8d3a5d69 (patch) | |
| tree | 0cfd163d69e22ca76c6c9bfbffc3760ca166fbcc /rts/PrimOps.cmm | |
| parent | a7005b6766b41360c7571c101901f56dc8d12df7 (diff) | |
| download | haskell-0714abaf0b190439631866132a5bf53c8d3a5d69.tar.gz | |
get the reg liveness right in the putMVar# heap check
Diffstat (limited to 'rts/PrimOps.cmm')
| -rw-r--r-- | rts/PrimOps.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 892ef68301..d09a856f48 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); |