summaryrefslogtreecommitdiff
path: root/rts/WSDeque.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/WSDeque.c')
-rw-r--r--rts/WSDeque.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/WSDeque.c b/rts/WSDeque.c
index d930d848a4..4974dfa7a7 100644
--- a/rts/WSDeque.c
+++ b/rts/WSDeque.c
@@ -56,7 +56,8 @@
static inline bool
cas_top(WSDeque *q, StgInt old, StgInt new)
{
- return (StgWord) old == cas((StgPtr) &q->top, (StgWord) old, (StgWord) new);
+ return (StgWord) old == SEQ_CST_RELAXED_CAS((StgPtr) &q->top,
+ (StgWord) old, (StgWord) new);
}