X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSparks.h;h=bf10a59d57944a2aa9d4b7ac61cf6b3cc834e129;hb=3eb8462836317d1c21bfd51969b2042fab6676cb;hp=f617558b9e3c3425c33367188eda138430f5b67e;hpb=0ba8b0bed96c78570bc750e0413d555b6939c16c;p=ghc-hetmet.git

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);
     }