From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 6 Feb 2009 13:07:15 +0000 (+0000)
Subject: tiny cleanup
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0366875f9b2b687b6d2af34eb5eab9da493b2c53

tiny cleanup
---

diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c
index e7fd58a..6dfabd9 100644
--- 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;