diff options
author | Peter Trommler <ptrommler@acm.org> | 2019-02-24 19:13:53 +0100 |
---|---|---|
committer | Peter Trommler <ptrommler@acm.org> | 2019-02-24 19:13:53 +0100 |
commit | c470b8ac5c7ef4eb97efe25c4c2bde1add7e60be (patch) | |
tree | e9aba3f523b2d28c289303195ca6d5af4bb96a2a | |
parent | eafa6ab26a06bfc006b048021a7611d54a2ef7d8 (diff) | |
download | haskell-c470b8ac5c7ef4eb97efe25c4c2bde1add7e60be.tar.gz |
testsuite RTS: Add barrier to debug codewip/T13633
-rw-r--r-- | testsuite/tests/rts/testwsdeque.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/rts/testwsdeque.c b/testsuite/tests/rts/testwsdeque.c index 3f17f321cd..a21f9bd3b0 100644 --- a/testsuite/tests/rts/testwsdeque.c +++ b/testsuite/tests/rts/testwsdeque.c @@ -51,7 +51,9 @@ myStealWSDeque_ (WSDeque *q, uint32_t n) if ((long)b - (long)t <= 0 ) { return NULL; /* already looks empty, abort */ } - + // NB. these loads must be ordered so writes from pushWSDeque + // will be seen. + load_load_barrier(); /* now access array, see pushBottom() */ stolen = q->elements[t & q->moduloSize]; |