rom/exec/setexcept.c

   1 /*
   2     Copyright © 1995-2011, 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
   9 #include <exec/execbase.h>
  10 #include <aros/libcall.h>
  11 #include <proto/exec.h>
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH2(ULONG, SetExcept,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(ULONG, newSignals, D0),
  21         AROS_LHA(ULONG, signalSet,  D1),
  22
  23 /*  LOCATION */
  24         struct ExecBase *, SysBase, 52, Exec)
  25
  26 /*  FUNCTION
  27         Change the mask of signals causing a task exception.
  28
  29     INPUTS
  30         newSignals - Set of signals causing the exception.
  31         signalSet  - Mask of affected signals.
  32
  33     RESULT
  34         Old mask of signals causing a task exception.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43         AllocSignal(), FreeSignal(), Wait(), SetSignal(), Signal()
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49 ******************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     /* Get pointer to current task */
  54     struct Task *me = FindTask(NULL);
  55     ULONG old;
  56
  57     /* Protect mask of sent signals and task lists */
  58     Disable();
  59
  60     /* Get returncode */
  61     old=me->tc_SigExcept;
  62
  63     /* Change exception mask */
  64     me->tc_SigExcept=(old&~signalSet)|(newSignals&signalSet);
  65
  66     /* Does this change include an exception? */
  67     if (me->tc_SigExcept & me->tc_SigRecvd)
  68     {
  69         /* Yes. Set the exception flag. */
  70         me->tc_Flags|=TF_EXCEPT;
  71
  72         /* And order rescheduling */
  73         Reschedule();
  74     }
  75     Enable();
  76
  77     return old;
  78
  79     AROS_LIBFUNC_EXIT
  80 }