diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-11-21 11:35:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-11-21 11:35:39 +0000 |
| commit | c373ebdb90edee470ad6fa8277cbe7aa369f23f8 (patch) | |
| tree | c054283eb5d899bfae86340436c4d67fcd051db3 /rts/Sparks.h | |
| parent | f7fd7fce1c50ea0014ab88f52313058d402d346e (diff) | |
| download | haskell-c373ebdb90edee470ad6fa8277cbe7aa369f23f8.tar.gz | |
we shouldn't update topBound in discardSparks()
Diffstat (limited to 'rts/Sparks.h')
| -rw-r--r-- | rts/Sparks.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Sparks.h b/rts/Sparks.h index fd62c1288d..e2c60e9625 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -107,7 +107,8 @@ sparkPoolSize (SparkPool *pool) INLINE_HEADER void discardSparks (SparkPool *pool) { - pool->top = pool->topBound = pool->bottom = 0; + pool->top = pool->bottom; +// pool->topBound = pool->top; } #endif |