diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 09:22:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 11:26:20 +0000 |
| commit | 6d784c43592290ec16db8b7f0f2a012dff3ed497 (patch) | |
| tree | a317ef1fc1ee40883e92cde308c292f7125db2b7 /includes/stg/MiscClosures.h | |
| parent | 97dc57c6e2bdbddd0a0170a283149a570a07179c (diff) | |
| download | haskell-6d784c43592290ec16db8b7f0f2a012dff3ed497.tar.gz | |
Add a write barrier for TVAR closures
This improves GC performance when there are a lot of TVars in the
heap. For instance, a TChan with a lot of elements causes a massive
GC drag without this patch.
There's more to do - several other STM closure types don't have write
barriers, so GC performance when there are a lot of threads blocked on
STM isn't great. But fixing the problem for TVar is a good start.
Diffstat (limited to 'includes/stg/MiscClosures.h')
| -rw-r--r-- | includes/stg/MiscClosures.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index af96563e53..61e6b0994f 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -101,6 +101,8 @@ RTS_ENTRY(stg_DEAD_WEAK); RTS_ENTRY(stg_STABLE_NAME); RTS_ENTRY(stg_MVAR_CLEAN); RTS_ENTRY(stg_MVAR_DIRTY); +RTS_ENTRY(stg_TVAR_CLEAN); +RTS_ENTRY(stg_TVAR_DIRTY); RTS_ENTRY(stg_TSO); RTS_ENTRY(stg_STACK); RTS_ENTRY(stg_ARR_WORDS); @@ -130,7 +132,6 @@ RTS_ENTRY(stg_atomically); RTS_ENTRY(stg_TVAR_WATCH_QUEUE); RTS_ENTRY(stg_INVARIANT_CHECK_QUEUE); RTS_ENTRY(stg_ATOMIC_INVARIANT); -RTS_ENTRY(stg_TVAR); RTS_ENTRY(stg_TREC_CHUNK); RTS_ENTRY(stg_TREC_HEADER); RTS_ENTRY(stg_END_STM_WATCH_QUEUE); |