arch/ppc-sam440/exec/wait.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Wait for some signal.
   6     Lang: english
   7 */
   8 #include <exec/execbase.h>
   9 #include <aros/libcall.h>
  10 #include <proto/exec.h>
  11 #include <proto/kernel.h>
  12
  13 #include "../kernel/kernel_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH1(ULONG, Wait,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(ULONG, signalSet, D0),
  23
  24 /*  LOCATION */
  25         struct ExecBase *, SysBase, 53, Exec)
  26
  27 /*  FUNCTION
  28         Wait until some signals are sent to the current task. If any signal
  29         of the specified set is already set when entering this function it
  30         returns immediately. Since almost any event in the OS can send a
  31         signal to your task if you specify it to do so signals are a very
  32         powerful mechanism.
  33
  34     INPUTS
  35         signalSet - The set of signals to wait for.
  36
  37     RESULT
  38         The set of active signals.
  39
  40     NOTES
  41         Naturally it's not allowed to wait in supervisor mode.
  42
  43         Calling Wait() breaks an active Disable() or Forbid().
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50         Signal(), SetSignal(), AllocSignal(), FreeSignal()
  51
  52     INTERNALS
  53
  54     HISTORY
  55
  56 ******************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59
  60     ULONG rcvd;
  61     struct Task *me;
  62     void *KernelBase = getKernelBase();
  63
  64     /* Get pointer to current task - I'll need it very often */
  65     me = FindTask (NULL);
  66
  67     /* Protect the task lists against access by other tasks. */
  68     Disable();
  69
  70     /* If at least one of the signals is already set do not wait. */
  71     while(!(me->tc_SigRecvd&signalSet))
  72     {
  73         BYTE old_TDNestCnt;
  74
  75         /* Set the wait signal mask */
  76         me->tc_SigWait=signalSet;
  77
  78         /*
  79             Clear TDNestCnt (because Switch() will not care about it),
  80             but memorize it first. IDNestCnt is handled by Switch().
  81             This could as well be stored in a local variable which makes
  82             the tc_TDNestCnt field somehow redundant.
  83         */
  84         old_TDNestCnt=SysBase->TDNestCnt;
  85         SysBase->TDNestCnt=-1;
  86
  87         /* Move current task to the waiting list. */
  88         me->tc_State=TS_WAIT;
  89
  90         /*
  91                 remove it from what!?
  92                 sheutlin
  93         */
  94 //        me->tc_Node.ln_Pred->ln_Succ = me->tc_Node.ln_Succ;
  95 //      me->tc_Node.ln_Succ->ln_Pred = me->tc_Node.ln_Pred;
  96
  97         Enqueue(&SysBase->TaskWait,&me->tc_Node);
  98
  99         /* And switch to the next ready task. */
 100         KrnSwitch();
 101
 102 //      Reschedule(me);
 103
 104         /*
 105             OK. Somebody awakened me. This means that either the
 106             signals are there or it's just a finished task exception.
 107             Test again to be sure (see above).
 108         */
 109
 110         /* Restore TDNestCnt. */
 111         SysBase->TDNestCnt=old_TDNestCnt;
 112     }
 113     /* Get active signals. */
 114     rcvd=me->tc_SigRecvd&signalSet;
 115
 116     /* And clear them. */
 117     me->tc_SigRecvd&=~signalSet;
 118
 119     /* All done. */
 120     Enable();
 121
 122     return rcvd;
 123     AROS_LIBFUNC_EXIT
 124 }
 125