diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-10-31 13:07:18 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-31 13:07:18 +0000 |
| commit | f2ca6deece1ed1724efdd6d2293dc7642059b2f2 (patch) | |
| tree | 7f08b2b0e7043568bbf9f02dad6e2da7a970efe1 /rts/ClosureFlags.c | |
| parent | d5bd3e829c47c03157cf41cad581d2df44dfd81b (diff) | |
| download | haskell-f2ca6deece1ed1724efdd6d2293dc7642059b2f2.tar.gz | |
Initial parallel GC support
eg. use +RTS -g2 -RTS for 2 threads. Only major GCs are parallelised,
minor GCs are still sequential. Don't use more threads than you
have CPUs.
It works most of the time, although you won't see much speedup yet.
Tuning and more work on stability still required.
Diffstat (limited to 'rts/ClosureFlags.c')
| -rw-r--r-- | rts/ClosureFlags.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 12e6632f24..eea609eff7 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -97,9 +97,10 @@ StgWord16 closure_flags[] = { /* TREC_HEADER = */ ( _NS| _MUT|_UPT ), /* ATOMICALLY_FRAME = */ ( _BTM ), /* CATCH_RETRY_FRAME = */ ( _BTM ), -/* CATCH_STM_FRAME = */ ( _BTM ) +/* CATCH_STM_FRAME = */ ( _BTM ), +/* WHITEHOLE = */ ( 0 ) }; -#if N_CLOSURE_TYPES != 72 +#if N_CLOSURE_TYPES != 73 #error Closure types changed: update ClosureFlags.c! #endif |