X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSparks.c;h=ca60e1338cf9459d47abc78a2d130e61fff5e19d;hb=ca5ded310c0a596be199a3da5f14be2fb2020687;hp=40ebcad7a714f4d95daae2429abb748cebbea11a;hpb=ab0e778ccfde61aed4c22679b24d175fc6cc9bf3;p=ghc-hetmet.git

diff --git a/rts/Sparks.c b/rts/Sparks.c
index 40ebcad..ca60e13 100644
--- a/rts/Sparks.c
+++ b/rts/Sparks.c
@@ -63,6 +63,11 @@ initSparkPools( void )
 #endif
 }
 
+void
+freeSparkPool(StgSparkPool *pool) {
+    stgFree(pool->base);
+}
+
 /* -----------------------------------------------------------------------------
  * 
  * findSpark: find a spark on the current Capability that we can fork