projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-03-26 17:40:57 by sof]
[ghc-hetmet.git]
/
ghc
/
rts
/
Sparks.c
diff --git
a/ghc/rts/Sparks.c
b/ghc/rts/Sparks.c
index
46c3225
..
4b447b6
100644
(file)
--- a/
ghc/rts/Sparks.c
+++ b/
ghc/rts/Sparks.c
@@
-1,5
+1,5
@@
/* ---------------------------------------------------------------------------
/* ---------------------------------------------------------------------------
- * $Id: Sparks.c,v 1.4 2001/08/14 13:40:09 sewardj Exp $
+ * $Id: Sparks.c,v 1.6 2003/03/25 17:58:50 sof Exp $
*
* (c) The GHC Team, 2000
*
*
* (c) The GHC Team, 2000
*
@@
-36,7
+36,7
@@
# endif
#include "Sparks.h"
# 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
//@node GUM code, GranSim code, Includes, Spark Management Routines
//@subsection GUM code
@@
-575,7
+575,7
@@
disposeSpark(spark)
rtsSpark *spark;
{
ASSERT(spark!=NULL);
rtsSpark *spark;
{
ASSERT(spark!=NULL);
- free(spark);
+ stgFree(spark);
}
//@cindex disposeSparkQ
}
//@cindex disposeSparkQ
@@
-595,7
+595,7
@@
rtsSparkQ spark;
}
# endif
}
# endif
- free(spark);
+ stgFree(spark);
}
/*
}
/*