X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSparks.h;h=e2c60e96251d54d1200b2f7ad626aa9b39455c35;hb=979fb4abd736734d30089a8b328824d4a5862a6a;hp=fd62c1288d35ddb833a656f50a262e4d476d38f6;hpb=65914a2cb71caf01655b16a75b283871e2482041;p=ghc-hetmet.git

diff --git a/rts/Sparks.h b/rts/Sparks.h
index fd62c12..e2c60e9 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