diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-04-17 18:48:38 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-04-17 19:50:30 -0400 |
| commit | 90e0ece0f88d13cf703cc2831f7f9b772b81b4ed (patch) | |
| tree | c8e4ce4e2021bc535dffbd20ae1393bd2fe71b60 /rts/Threads.c | |
| parent | 45662404780b4968b5308ad969e233ffeb175c9a (diff) | |
| download | haskell-wip/gc/ben.tar.gz | |
Remove redundant write barrier checks and fix predictionwip/gc/ben
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index 7907fc9196..37d58d7027 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -712,7 +712,7 @@ threadStackUnderflow (Capability *cap, StgTSO *tso) barf("threadStackUnderflow: not enough space for return values"); } - if (nonmoving_write_barrier_enabled) { + if (RTS_UNLIKELY(nonmoving_write_barrier_enabled)) { // ensure that values that we copy into the new stack are marked // for the nonmoving collector. Note that these values won't // necessarily form a full closure so we need to handle them |