diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-05-19 13:29:42 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-10-21 11:43:54 -0400 |
| commit | 26c3827f0b878f5bde7b5261076eb8452847fdb4 (patch) | |
| tree | 45d7ab2d4c838f555fe605a8ef16aec69f703fe4 /rts/Messages.c | |
| parent | 1037341648466158fd55bd1d50e1f81c8cfd1516 (diff) | |
| download | haskell-26c3827f0b878f5bde7b5261076eb8452847fdb4.tar.gz | |
Nonmoving: Ensure write barrier vanishes in non-threaded RTS
Diffstat (limited to 'rts/Messages.c')
| -rw-r--r-- | rts/Messages.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Messages.c b/rts/Messages.c index b16ada53e1..374f3d673e 100644 --- a/rts/Messages.c +++ b/rts/Messages.c @@ -262,7 +262,7 @@ loop: // point to the BLOCKING_QUEUE from the BLACKHOLE write_barrier(); // make the BQ visible, see Note [Heap memory barriers]. - if (RTS_UNLIKELY(nonmoving_write_barrier_enabled)) { + IF_NONMOVING_WRITE_BARRIER_ENABLED { updateRemembSetPushClosure(cap, (StgClosure*)p); } ((StgInd*)bh)->indirectee = (StgClosure *)bq; @@ -293,7 +293,7 @@ loop: } #endif - if (RTS_UNLIKELY(nonmoving_write_barrier_enabled)) { + IF_NONMOVING_WRITE_BARRIER_ENABLED { // We are about to overwrite bq->queue; make sure its current value // makes it into the update remembered set updateRemembSetPushClosure(cap, (StgClosure*)bq->queue); |