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 extern void scheduleThread(StgTSO *tso);
30 extern SchedulerStatus scheduleWaitThread(StgTSO *tso, /*out*/HaskellObj* ret,
31 Capability *initialCapability);
33 INLINE_HEADER void pushClosure (StgTSO *tso, StgWord c) {
38 INLINE_HEADER StgTSO *
39 createGenThread(nat stack_size, StgClosure *closure) {
42 t = createThread(stack_size, NO_PRI);
44 t = createThread(stack_size);
46 pushClosure(t, (W_)closure);
47 pushClosure(t, (W_)&stg_enter_info);
51 INLINE_HEADER StgTSO *
52 createIOThread(nat stack_size, StgClosure *closure) {
55 t = createThread(stack_size, NO_PRI);
57 t = createThread(stack_size);
59 pushClosure(t, (W_)&stg_noforceIO_info);
60 pushClosure(t, (W_)&stg_ap_v_info);
61 pushClosure(t, (W_)closure);
62 pushClosure(t, (W_)&stg_enter_info);
67 * Same as above, but also evaluate the result of the IO action
68 * to whnf while we're at it.
71 INLINE_HEADER StgTSO *
72 createStrictIOThread(nat stack_size, StgClosure *closure) {
75 t = createThread(stack_size, NO_PRI);
77 t = createThread(stack_size);
79 pushClosure(t, (W_)&stg_forceIO_info);
80 pushClosure(t, (W_)&stg_ap_v_info);
81 pushClosure(t, (W_)closure);
82 pushClosure(t, (W_)&stg_enter_info);
90 extern void deleteThread(StgTSO *tso);
91 extern void deleteAllThreads ( void );
92 extern int howManyThreadsAvail ( void );
94 * Run until there are no more threads.
96 extern void finishAllThreads ( void );