tiny cleanup

[ghc-hetmet.git] / rts / parallel / WSDeque.c

diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c
index e7fd58a..6dfabd9 100644 (file)
--- a/rts/parallel/WSDeque.c
+++ b/rts/parallel/WSDeque.c
@@ -275,7 +275,7 @@ pushWSDeque (WSDeque* q, void * elem)
     }
     pos = (q->elements) + (b & sz);
     *pos = elem;
-    (q->bottom)++;
+    q->bottom = b + 1;
     
     ASSERT_WSDEQUE_INVARIANTS(q); 
     return rtsTrue;