X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FSparks.c;h=4b447b629218c3af5da4fd7db8ff78321f5b1e48;hb=d283bfc1b42cd6cf4a81c56d72a71bb451dfefc6;hp=9a37d6970bd37e0c32c38eb099f1536f75534396;hpb=20fc2f0ced64a12d8e44956931b2ac341ed2186f;p=ghc-hetmet.git diff --git a/ghc/rts/Sparks.c b/ghc/rts/Sparks.c index 9a37d69..4b447b6 100644 --- a/ghc/rts/Sparks.c +++ b/ghc/rts/Sparks.c @@ -1,5 +1,5 @@ /* --------------------------------------------------------------------------- - * $Id: Sparks.c,v 1.3 2001/03/22 03:51:10 hwloidl Exp $ + * $Id: Sparks.c,v 1.6 2003/03/25 17:58:50 sof Exp $ * * (c) The GHC Team, 2000 * @@ -20,6 +20,7 @@ //@node Includes, GUM code, Spark Management Routines, Spark Management Routines //@subsection Includes +#include "PosixSource.h" #include "Rts.h" #include "Schedule.h" #include "SchedAPI.h" @@ -35,7 +36,7 @@ # endif #include "Sparks.h" -#if defined(SMP) || defined(PAR) +#if /*defined(SMP) ||*/ defined(PAR) //@node GUM code, GranSim code, Includes, Spark Management Routines //@subsection GUM code @@ -574,7 +575,7 @@ disposeSpark(spark) rtsSpark *spark; { ASSERT(spark!=NULL); - free(spark); + stgFree(spark); } //@cindex disposeSparkQ @@ -594,7 +595,7 @@ rtsSparkQ spark; } # endif - free(spark); + stgFree(spark); } /*