rom/exec/setexcept.c

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