rom/exec/setexcept.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Examine and/or modify the signals which cause an exception.
   6     Lang: english
   7 */
   8 #include <exec/execbase.h>
   9 #include <aros/libcall.h>
  10 #include <proto/exec.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15
  16         AROS_LH2(ULONG, SetExcept,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(ULONG, newSignals, D0),
  20         AROS_LHA(ULONG, signalSet,  D1),
  21
  22 /*  LOCATION */
  23         struct ExecBase *, SysBase, 52, Exec)
  24
  25 /*  FUNCTION
  26         Change the mask of signals causing a task exception.
  27
  28     INPUTS
  29         newSignals - Set of signals causing the exception.
  30         signalSet  - Mask of affected signals.
  31
  32     RESULT
  33         Old mask of signals causing a task exception.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         AllocSignal(), FreeSignal(), Wait(), SetSignal(), Signal()
  43
  44     INTERNALS
  45
  46 ******************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct Task *me;
  51     ULONG old;
  52
  53     /* Get pointer to current task */
  54     me=SysBase->ThisTask;
  55
  56     /* Protect mask of sent signals and task lists */
  57     Disable();
  58
  59     /* Get returncode */
  60     old=me->tc_SigExcept;
  61
  62     /* Change exception mask */
  63     me->tc_SigExcept=(old&~signalSet)|(newSignals&signalSet);
  64
  65     /* Does this change include an exception? */
  66     if(me->tc_SigExcept&me->tc_SigRecvd)
  67     {
  68         /* Yes. Set the exception flag. */
  69         me->tc_Flags|=TF_EXCEPT;
  70
  71         /* Are taskswitches allowed? (Don't count own Disable() here) */
  72         if(SysBase->TDNestCnt>=0||SysBase->IDNestCnt>0)
  73             /* No. Store it for later. */
  74             SysBase->AttnResched|=0x80;
  75         else
  76             /* Switches are allowed. Force a rescedule. */
  77             Switch();
  78     }
  79     Enable();
  80
  81     return old;
  82     AROS_LIBFUNC_EXIT
  83 } /* SetExcept() */
  84