rom/exec/exception.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Exception - Perform a task exception.
   6     Lang: english
   7 */
   8 #include <exec/execbase.h>
   9 #include <aros/asmcall.h>
  10
  11 /*****i*************************************************************************
  12
  13     NAME */
  14 #include <proto/exec.h>
  15
  16         AROS_LH0(void, Exception,
  17
  18 /*  LOCATION */
  19         struct ExecBase *, SysBase, 11, Exec)
  20
  21 /*  FUNCTION
  22         Exception handler. This function is called by the dispatcher if
  23         a task exception has occured. It is called in the Disable()'d
  24         state so that all signals are still unchanged.
  25
  26         TF_EXCEPT is still set and must be reset by this route.
  27
  28         The exception code is called with the following parameters:
  29
  30             A1  -   Task->tc_ExceptData
  31             D0  -   Mask of Flags which caused this exception.
  32             A6  -   SysBase
  33
  34     INPUTS
  35
  36     RESULT
  37
  38     NOTES
  39         Exec internal function.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         Dispatch()
  47
  48     INTERNALS
  49
  50 ******************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     struct Task * this = FindTask (NULL);
  55     BYTE nestCnt;
  56     ULONG flags;
  57
  58     this->tc_Flags &= ~TF_EXCEPT;
  59
  60     nestCnt = SysBase->IDNestCnt;
  61     SysBase->IDNestCnt = 0;
  62
  63     while ((flags = (this->tc_SigExcept & this->tc_SigRecvd)))
  64     {
  65         flags ^= this->tc_SigExcept;
  66         flags ^= this->tc_SigRecvd;
  67
  68         Enable ();
  69
  70         /* Call the Exception with the new AROS ASMCALL macros */
  71         if( this->tc_ExceptCode != NULL)
  72         {
  73             this->tc_SigExcept = AROS_UFC3(ULONG, this->tc_ExceptCode,
  74                 AROS_UFCA(APTR, this->tc_ExceptData, A1),
  75                 AROS_UFCA(ULONG, flags, D0),
  76                 AROS_UFCA(struct ExecBase *, SysBase, A6));
  77         }
  78         else
  79         {
  80             /*
  81                 We don't have an exception handler, we shouldn't have
  82                 any exceptions. Clear them.
  83             */
  84
  85             this->tc_SigExcept = 0;
  86         }
  87         Disable ();
  88     }
  89
  90     SysBase->IDNestCnt = nestCnt;
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* Exception */