summaryrefslogtreecommitdiff
path: root/rts/parallel
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-02-06 13:03:38 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-02-06 13:03:38 +0000
commit894864ea401b799833bcd107d9c8eb4cc943ae90 (patch)
tree31646966183dd19539f5e563cfd98577844bc5e2 /rts/parallel
parent5f7079b97e322fd84e99adb686c86afe6d7c8231 (diff)
downloadhaskell-894864ea401b799833bcd107d9c8eb4cc943ae90.tar.gz
add an assertion
Diffstat (limited to 'rts/parallel')
-rw-r--r--rts/parallel/WSDeque.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c
index 8c403c3a58..ec34a8ca25 100644
--- a/rts/parallel/WSDeque.c
+++ b/rts/parallel/WSDeque.c
@@ -151,6 +151,7 @@ popWSDeque (WSDeque *q)
q->topBound = t+1; /* ...and cached top value as well */
ASSERT_WSDEQUE_INVARIANTS(q);
+ ASSERT(q->bottom >= q->top);
return removed;
}