From 3eb8462836317d1c21bfd51969b2042fab6676cb Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 23 Jul 2008 10:43:22 +0000 Subject: [PATCH] fix bug in sparkPoolSize (affects debug output only) --- rts/Sparks.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/Sparks.h b/rts/Sparks.h index f617558..bf10a59 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -46,7 +46,7 @@ INLINE_HEADER nat sparkPoolSize (StgSparkPool *pool) { if (pool->hd <= pool->tl) { - return (pool->hd - pool->tl); + return (pool->tl - pool->hd); } else { return (pool->lim - pool->hd + pool->tl - pool->base); } -- 1.7.10.4