1 /* -----------------------------------------------------------------------------
2 * $Id: SchedAPI.h,v 1.17 2002/12/27 12:33:21 panne 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);
25 extern StgTSO *createThread(nat stack_size, StgInt pri);
27 extern StgTSO *createThread(nat stack_size);
29 #if defined(PAR) || defined(SMP)
30 extern void taskStart(void);
32 extern void scheduleThread(StgTSO *tso);
33 extern SchedulerStatus scheduleWaitThread(StgTSO *tso, /*out*/HaskellObj* ret);
35 static inline void pushClosure (StgTSO *tso, StgWord c) {
40 static inline StgTSO *
41 createGenThread(nat stack_size, StgClosure *closure) {
44 t = createThread(stack_size, NO_PRI);
46 t = createThread(stack_size);
48 pushClosure(t, (W_)closure);
49 pushClosure(t, (W_)&stg_enter_info);
53 static inline StgTSO *
54 createIOThread(nat stack_size, StgClosure *closure) {
57 t = createThread(stack_size, NO_PRI);
59 t = createThread(stack_size);
61 pushClosure(t, (W_)&stg_noforceIO_info);
62 pushClosure(t, (W_)&stg_ap_v_info);
63 pushClosure(t, (W_)closure);
64 pushClosure(t, (W_)&stg_enter_info);
69 * Same as above, but also evaluate the result of the IO action
70 * to whnf while we're at it.
73 static inline StgTSO *
74 createStrictIOThread(nat stack_size, StgClosure *closure) {
77 t = createThread(stack_size, NO_PRI);
79 t = createThread(stack_size);
81 pushClosure(t, (W_)&stg_forceIO_info);
82 pushClosure(t, (W_)&stg_ap_v_info);
83 pushClosure(t, (W_)closure);
84 pushClosure(t, (W_)&stg_enter_info);
92 extern void deleteThread(StgTSO *tso);
93 extern void deleteAllThreads ( void );
94 extern int howManyThreadsAvail ( void );
96 * Run until there are no more threads.
98 extern void finishAllThreads ( void );