rom/exec/setexcept.c

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