X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.c;h=4b447b629218c3af5da4fd7db8ff78321f5b1e48;hb=4be58768d4974fd1bddae44f12a0fde1f7fe6b30;hp=f71af9c2b2bdada6ec70ee77e284f2243c0c170f;hpb=797d634182ab6f63c5e51e44a567ba8f7bc8b074;p=ghc-hetmet.git

diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c
index f71af9c..4b447b6 100644
--- a/ghc/rts/Sparks.c
+++ b/ghc/rts/Sparks.c
@@ -1,5 +1,5 @@
 /* ---------------------------------------------------------------------------
- * $Id: Sparks.c,v 1.5 2002/01/24 02:06:49 sof Exp $
+ * $Id: Sparks.c,v 1.6 2003/03/25 17:58:50 sof Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -575,7 +575,7 @@ disposeSpark(spark)
 rtsSpark *spark;
 {
   ASSERT(spark!=NULL);
-  free(spark);
+  stgFree(spark);
 }
 
 //@cindex disposeSparkQ
@@ -595,7 +595,7 @@ rtsSparkQ spark;
   }
 # endif
 
-  free(spark);
+  stgFree(spark);
 }
 
 /*