diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-23 10:43:22 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-23 10:43:22 +0000 |
| commit | 3eb8462836317d1c21bfd51969b2042fab6676cb (patch) | |
| tree | b37d12066298ace97a0c7f7bb49993dab2348d27 /rts/Sparks.h | |
| parent | 0ba8b0bed96c78570bc750e0413d555b6939c16c (diff) | |
| download | haskell-3eb8462836317d1c21bfd51969b2042fab6676cb.tar.gz | |
fix bug in sparkPoolSize (affects debug output only)
Diffstat (limited to 'rts/Sparks.h')
| -rw-r--r-- | rts/Sparks.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Sparks.h b/rts/Sparks.h index f617558b9e..bf10a59d57 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); } |