1 /* -----------------------------------------------------------------------------
2 * $Id: SchedAPI.h,v 1.19 2003/11/12 17:27:03 sof Exp $
4 * (c) The GHC Team 1998-2002
6 * External API for the scheduler. For most uses, the functions in
7 * RtsAPI.h should be enough.
9 * ---------------------------------------------------------------------------*/
15 // Dummy def for NO_PRI if not in GranSim
19 extern SchedulerStatus waitThread(StgTSO *main_thread, /*out*/StgClosure **ret,
20 Capability *initialCapability);
26 extern StgTSO *createThread(nat stack_size, StgInt pri);
28 extern StgTSO *createThread(nat stack_size);
30 #if defined(PAR) || defined(SMP)
31 extern void taskStart(void);
33 extern void scheduleThread(StgTSO *tso);
34 extern SchedulerStatus scheduleWaitThread(StgTSO *tso, /*out*/HaskellObj* ret,
35 Capability *initialCapability);
37 INLINE_HEADER void pushClosure (StgTSO *tso, StgWord c) {
42 INLINE_HEADER StgTSO *
43 createGenThread(nat stack_size, StgClosure *closure) {
46 t = createThread(stack_size, NO_PRI);
48 t = createThread(stack_size);
50 pushClosure(t, (W_)closure);
51 pushClosure(t, (W_)&stg_enter_info);
55 INLINE_HEADER StgTSO *
56 createIOThread(nat stack_size, StgClosure *closure) {
59 t = createThread(stack_size, NO_PRI);
61 t = createThread(stack_size);
63 pushClosure(t, (W_)&stg_noforceIO_info);
64 pushClosure(t, (W_)&stg_ap_v_info);
65 pushClosure(t, (W_)closure);
66 pushClosure(t, (W_)&stg_enter_info);
71 * Same as above, but also evaluate the result of the IO action
72 * to whnf while we're at it.
75 INLINE_HEADER StgTSO *
76 createStrictIOThread(nat stack_size, StgClosure *closure) {
79 t = createThread(stack_size, NO_PRI);
81 t = createThread(stack_size);
83 pushClosure(t, (W_)&stg_forceIO_info);
84 pushClosure(t, (W_)&stg_ap_v_info);
85 pushClosure(t, (W_)closure);
86 pushClosure(t, (W_)&stg_enter_info);
94 extern void deleteThread(StgTSO *tso);
95 extern void deleteAllThreads ( void );
96 extern int howManyThreadsAvail ( void );
98 * Run until there are no more threads.
100 extern void finishAllThreads ( void );