From 99836ac39665b577dde6945a60631c75e954e3dc Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 6 Nov 2008 15:56:48 +0000 Subject: [PATCH] pruneSparkQueue(): fix bug when top>bottom --- rts/Sparks.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/rts/Sparks.c b/rts/Sparks.c index e7273f3..cb3d8d9 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -389,6 +389,12 @@ pruneSparkQueue (evac_fn evac, void *user, Capability *cap) pool = cap->sparks; + // it is possible that top > bottom, indicating an empty pool. We + // fix that here; this is only necessary because the loop below + // assumes it. + if (pool->top > pool->bottom) + pool->top = pool->bottom; + // Take this opportunity to reset top/bottom modulo the size of // the array, to avoid overflow. This is only possible because no // stealing is happening during GC. -- 1.7.10.4