From 6d784c43592290ec16db8b7f0f2a012dff3ed497 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 16 Nov 2012 09:22:00 +0000 Subject: 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. --- rts/ClosureFlags.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'rts/ClosureFlags.c') diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index a2a140282f..886288d733 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -64,7 +64,8 @@ StgWord16 closure_flags[] = { [BLOCKING_QUEUE] = ( _NS| _MUT|_UPT ), [MVAR_CLEAN] = (_HNF| _NS| _MUT|_UPT ), [MVAR_DIRTY] = (_HNF| _NS| _MUT|_UPT ), - [ARR_WORDS] = (_HNF| _NS| _UPT ), + [TVAR] = (_HNF| _NS| _MUT|_UPT ), + [ARR_WORDS] = (_HNF| _NS| _UPT ), [MUT_ARR_PTRS_CLEAN] = (_HNF| _NS| _MUT|_UPT ), [MUT_ARR_PTRS_DIRTY] = (_HNF| _NS| _MUT|_UPT ), [MUT_ARR_PTRS_FROZEN0] = (_HNF| _NS| _MUT|_UPT ), @@ -83,6 +84,6 @@ StgWord16 closure_flags[] = { [WHITEHOLE] = ( 0 ) }; -#if N_CLOSURE_TYPES != 60 +#if N_CLOSURE_TYPES != 61 #error Closure types changed: update ClosureFlags.c! #endif -- cgit v1.2.1