summaryrefslogtreecommitdiff
path: root/rts/LdvProfile.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-10-11 13:55:05 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-10-11 13:55:05 +0000
commit1ed01a871030f05905a9595e4837dfffc087ef64 (patch)
tree32c1335b52d0ec28d6a99d4ccaeae6a36a73bddc /rts/LdvProfile.c
parent53d57aa3aa498120eb1beba1b9c30e6a5e4e2d0a (diff)
downloadhaskell-1ed01a871030f05905a9595e4837dfffc087ef64.tar.gz
Add a proper write barrier for MVars
Previously MVars were always on the mutable list of the old generation, which meant every MVar was visited during every minor GC. With lots of MVars hanging around, this gets expensive. We addressed this problem for MUT_VARs (aka IORefs) a while ago, the solution is to use a traditional GC write-barrier when the object is modified. This patch does the same thing for MVars. TVars are still done the old way, they could probably benefit from the same treatment too.
Diffstat (limited to 'rts/LdvProfile.c')
-rw-r--r--rts/LdvProfile.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 193344e4f5..ecbba8b6ab 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -96,7 +96,8 @@ processHeapClosureForDead( StgClosure *c )
'inherently used' cases: do nothing.
*/
case TSO:
- case MVAR:
+ case MVAR_CLEAN:
+ case MVAR_DIRTY:
case MUT_ARR_PTRS_CLEAN:
case MUT_ARR_PTRS_DIRTY:
case MUT_ARR_PTRS_FROZEN: