arch/i386-pc/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
   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     struct Task *me;
  54     ULONG old;
  55
  56     /* Get pointer to current task */
  57     me=SysBase->ThisTask;
  58
  59     /* Protect mask of sent signals and task lists */
  60     Disable();
  61
  62     /* Get returncode */
  63     old=me->tc_SigExcept;
  64
  65     /* Change exception mask */
  66     me->tc_SigExcept=(old&~signalSet)|(newSignals&signalSet);
  67
  68     /* Does this change include an exception? */
  69     if(me->tc_SigExcept&me->tc_SigRecvd)
  70     {
  71         /* Yes. Set the exception flag. */
  72         me->tc_Flags|=TF_EXCEPT;
  73
  74         /* Are taskswitches allowed? (Don't count own Disable() here) */
  75         if(SysBase->TDNestCnt>=0||SysBase->IDNestCnt>0)
  76             /* No. Store it for later. */
  77             SysBase->AttnResched|=0x80;
  78         else
  79         {
  80             /* Switches are allowed. Force a rescedule. */
  81
  82 //          me->tc_Node.ln_Pred->ln_Succ = me->tc_Node.ln_Succ;
  83 //          me->tc_Node.ln_Succ->ln_Pred = me->tc_Node.ln_Pred;
  84
  85             Reschedule(me);
  86         }
  87     }
  88     Enable();
  89
  90     return old;
  91     AROS_LIBFUNC_EXIT
  92 }
  93
  94