X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FWSDeque.c;fp=rts%2Fparallel%2FWSDeque.c;h=75ff9197bd8b0e53a9bf8dc6782019fe5465c323;hb=03ef5bd295f3ba7473b3dee99691fe1b2e077a0c;hp=6dfabd927a470df08a6043eefceffb3f55fcad99;hpb=0366875f9b2b687b6d2af34eb5eab9da493b2c53;p=ghc-hetmet.git

diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c
index 6dfabd9..75ff919 100644
--- a/rts/parallel/WSDeque.c
+++ b/rts/parallel/WSDeque.c
@@ -136,7 +136,7 @@ popWSDeque (WSDeque *q)
                    need a lower bound. We use the real top here, but
                    can update the topBound value */
     q->topBound = t;
-    currSize = b - t;
+    currSize = (long)b - (long)t;
     if (currSize < 0) { /* was empty before decrementing b, set b
                            consistently and abort */
         q->bottom = t;