diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-02-06 13:07:45 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-02-06 13:07:45 +0000 |
| commit | 03ef5bd295f3ba7473b3dee99691fe1b2e077a0c (patch) | |
| tree | dd1cfc0b2f801fc5cb7532e0d8cf618c4a4da4ad /rts/parallel | |
| parent | 0366875f9b2b687b6d2af34eb5eab9da493b2c53 (diff) | |
| download | haskell-03ef5bd295f3ba7473b3dee99691fe1b2e077a0c.tar.gz | |
bugfix: an unsigned comparison should be signed
Diffstat (limited to 'rts/parallel')
| -rw-r--r-- | rts/parallel/WSDeque.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c index 6dfabd927a..75ff9197bd 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; |