added automatic system spinlock unlocking and locking
[aros:aros.git] / AROS / rom / exec / wait.c
1 /*
2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
3     $Id$
4
5     Desc: Wait for some signal.
6     Lang: english
7 */
8 #define DEBUG 1
9
10 #include <aros/debug.h>
11 #include <exec/execbase.h>
12 #include <aros/libcall.h>
13 #include <proto/exec.h>
14 #include <proto/kernel.h>
15
16 #include "exec_intern.h"
17
18 /*****************************************************************************
19
20     NAME */
21
22         AROS_LH1(ULONG, Wait,
23
24 /*  SYNOPSIS */
25         AROS_LHA(ULONG, signalSet, D0),
26
27 /*  LOCATION */
28         struct ExecBase *, SysBase, 53, Exec)
29
30 /*  FUNCTION
31         Wait until some signals are sent to the current task. If any signal
32         of the specified set is already set when entering this function it
33         returns immediately. Since almost any event in the OS can send a
34         signal to your task if you specify it to do so signals are a very
35         powerful mechanism.
36
37     INPUTS
38         signalSet - The set of signals to wait for.
39
40     RESULT
41         The set of active signals.
42
43     NOTES
44         Naturally it's not allowed to wait in supervisor mode.
45
46         Calling Wait() breaks an active Disable() or Forbid().
47
48     EXAMPLE
49
50     BUGS
51
52     SEE ALSO
53         Signal(), SetSignal(), AllocSignal(), FreeSignal()
54
55     INTERNALS
56
57     HISTORY
58
59 ******************************************************************************/
60 {
61     AROS_LIBFUNC_INIT
62
63     ULONG rcvd;
64     struct Task *me;
65     ULONG spincount=0;
66
67     /* Get pointer to current task - I'll need it very often */
68     me = FindTask (NULL);
69
70     //D(bug("[Exec] Wait(0x%08lX) called by %s\n", signalSet, me->tc_Node.ln_Name));
71     /* Protect the task lists against access by other tasks. */
72     Disable();
73
74     /* If at least one of the signals is already set do not wait. */
75     while(!(me->tc_SigRecvd&signalSet))
76     {
77         //D(bug("[Exec] Signals are not set, putting the task to sleep\n"));
78         /* Set the wait signal mask */
79         me->tc_SigWait=signalSet;
80
81         /* Move current task to the waiting list. */
82         me->tc_State=TS_WAIT;
83         Enqueue(&SysBase->TaskWait,&me->tc_Node);
84
85         spincount=ResetSpin(&(PrivExecBase(SysBase)->LibList_spinlock));
86         if(spincount)
87             D(bug("[Exec] Wait() released %d spinlocks\n", spincount));
88
89         /* And switch to the next ready task. */
90         KrnSwitch();
91
92         /*
93             OK. Somebody awakened me. This means that either the
94             signals are there or it's just a finished task exception.
95             Test again to be sure (see above).
96         */
97     }
98     /* Get active signals. */
99     rcvd=me->tc_SigRecvd&signalSet;
100
101     /* And clear them. */
102     me->tc_SigRecvd&=~signalSet;
103
104     /* All done. */
105     Enable();
106
107     /* get our locks back ! */
108     while(spincount--)
109     {
110         LockSpin(&(PrivExecBase(SysBase)->LibList_spinlock));
111     }
112
113     return rcvd;
114
115     AROS_LIBFUNC_EXIT
116 }
117