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/ThreadPaused.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/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index aa76f5ed0e..4b24362442 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -330,8 +330,8 @@ threadPaused(Capability *cap, StgTSO *tso) } #endif - if (nonmoving_write_barrier_enabled - && ip_THUNK(INFO_PTR_TO_STRUCT(bh_info))) { + if (RTS_UNLIKELY(nonmoving_write_barrier_enabled + && ip_THUNK(INFO_PTR_TO_STRUCT(bh_info)))) { // We are about to replace a thunk with a blackhole. // Add the free variables of the closure we are about to // overwrite to the update remembered set. |