/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.49 2000/03/13 09:56:31 simonmar Exp $
+ * $Id: Schedule.c,v 1.52 2000/03/14 09:55:05 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
#include "Sanity.h"
#include "Stats.h"
#include "Sparks.h"
+#include "Prelude.h"
#if defined(GRAN) || defined(PAR)
# include "GranSimRts.h"
# include "GranSim.h"
exit(1);
#else
/* Send this thread the StackOverflow exception */
- raiseAsync(tso, (StgClosure *)&stackOverflow_closure);
+ raiseAsync(tso, (StgClosure *)stackOverflow_closure);
#endif
return tso;
}
}
#endif
-#if defined(GRAN)
-inline StgTSO *
-unblockOne(StgTSO *tso, StgClosure *node)
-{
- ACQUIRE_LOCK(&sched_mutex);
- tso = unblockOneLocked(tso, node);
- RELEASE_LOCK(&sched_mutex);
- return tso;
-}
-#elif defined(PAR)
+#if defined(PAR) || defined(GRAN)
inline StgTSO *
unblockOne(StgTSO *tso, StgClosure *node)
{