/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.c,v 1.32 2002/02/13 08:48:06 sof Exp $
+ * $Id: RtsAPI.c,v 1.33 2002/02/15 07:40:10 sof Exp $
*
* (c) The GHC Team, 1998-2001
*
#include "Schedule.h"
#if defined(THREADED_RTS)
-#define SCHEDULE_MAIN_THREAD(tso) scheduleThread_(tso,rtsFalse)
#define WAIT_MAIN_THREAD(tso,ret) waitThread_(tso,ret,rtsFalse)
#else
-#define SCHEDULE_MAIN_THREAD(tso) scheduleThread(tso)
#define WAIT_MAIN_THREAD(tso,ret) waitThread(tso,ret)
#endif
tso = createGenThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
- scheduleThread(tso);
+ scheduleExtThread(tso);
return waitThread(tso, ret);
}
tso = createGenThread(stack_size, p);
releaseAllocLock();
- scheduleThread(tso);
+ scheduleExtThread(tso);
return waitThread(tso, ret);
}
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
- scheduleThread(tso);
+ scheduleExtThread(tso);
return waitThread(tso, ret);
}
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
- SCHEDULE_MAIN_THREAD(tso);
+ scheduleThread(tso);
return WAIT_MAIN_THREAD(tso, ret);
}
p = (StgClosure *)deRefStablePtr(s);
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
- scheduleThread(tso);
+ scheduleExtThread(tso);
stat = waitThread(tso, &r);
if (stat == Success) {
tso = createIOThread(stack_size, p);
releaseAllocLock();
- scheduleThread(tso);
+ scheduleExtThread(tso);
return waitThread(tso, ret);
}