1 /* -----------------------------------------------------------------------------
3 * (c) The GHC Team 1998-2002
5 * External API for the scheduler. For most uses, the functions in
6 * RtsAPI.h should be enough.
8 * ---------------------------------------------------------------------------*/
14 /* Dummy def for NO_PRI if not in GranSim */
18 extern SchedulerStatus waitThread(StgTSO *main_thread, /*out*/StgClosure **ret,
19 Capability *initialCapability);
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,
34 Capability *initialCapability);
36 INLINE_HEADER void pushClosure (StgTSO *tso, StgWord c) {
41 INLINE_HEADER StgTSO *
42 createGenThread(nat stack_size, StgClosure *closure) {
45 t = createThread(stack_size, NO_PRI);
47 t = createThread(stack_size);
49 pushClosure(t, (W_)closure);
50 pushClosure(t, (W_)&stg_enter_info);
54 INLINE_HEADER StgTSO *
55 createIOThread(nat stack_size, StgClosure *closure) {
58 t = createThread(stack_size, NO_PRI);
60 t = createThread(stack_size);
62 pushClosure(t, (W_)&stg_noforceIO_info);
63 pushClosure(t, (W_)&stg_ap_v_info);
64 pushClosure(t, (W_)closure);
65 pushClosure(t, (W_)&stg_enter_info);
70 * Same as above, but also evaluate the result of the IO action
71 * to whnf while we're at it.
74 INLINE_HEADER StgTSO *
75 createStrictIOThread(nat stack_size, StgClosure *closure) {
78 t = createThread(stack_size, NO_PRI);
80 t = createThread(stack_size);
82 pushClosure(t, (W_)&stg_forceIO_info);
83 pushClosure(t, (W_)&stg_ap_v_info);
84 pushClosure(t, (W_)closure);
85 pushClosure(t, (W_)&stg_enter_info);
93 extern void deleteThread(StgTSO *tso);
94 extern void deleteAllThreads ( void );
95 extern int howManyThreadsAvail ( void );
97 * Run until there are no more threads.
99 extern void finishAllThreads ( void );