rom/exec/exception.c

   1 /*
   2     Copyright © 1995-2015, 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 #include <exec_platform.h>
  11
  12 /*****i*************************************************************************
  13
  14     NAME */
  15 #include <proto/exec.h>
  16
  17         AROS_LH0(void, Exception,
  18
  19 /*  LOCATION */
  20         struct ExecBase *, SysBase, 11, Exec)
  21
  22 /*  FUNCTION
  23         Exception handler. This function is called by the dispatcher if
  24         a task exception has occured. It is called in the Disable()'d
  25         state so that all signals are still unchanged.
  26
  27         TF_EXCEPT is still set and must be reset by task route.
  28
  29         The exception code is called with the following parameters:
  30
  31             A1  -   Task->tc_ExceptData
  32             D0  -   Mask of Flags which caused task exception.
  33             A6  -   SysBase
  34
  35     INPUTS
  36
  37     RESULT
  38
  39     NOTES
  40         This function is private. Do not call it from any program.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         Dispatch()
  48
  49     INTERNALS
  50         Unlike in AmigaOS task function is called in user mode.
  51
  52 ******************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct Task *task = FindTask (NULL);
  57     BYTE nestCnt;
  58     ULONG flags;
  59
  60     task->tc_Flags &= ~TF_EXCEPT;
  61
  62     nestCnt = IDNESTCOUNT_GET;
  63     IDNESTCOUNT_SET(0);
  64
  65     while ((flags = (task->tc_SigExcept & task->tc_SigRecvd)))
  66     {
  67         task->tc_SigExcept ^= flags;
  68         task->tc_SigRecvd  ^= flags;
  69
  70         Enable();
  71
  72         /* Call the Exception */
  73         if(task->tc_ExceptCode)
  74         {
  75             task->tc_SigExcept |= AROS_UFC3(ULONG, task->tc_ExceptCode,
  76                 AROS_UFCA(APTR, task->tc_ExceptData, A1),
  77                 AROS_UFCA(ULONG, flags, D0),
  78                 AROS_UFCA(struct ExecBase *, SysBase, A6));
  79         }
  80
  81         Disable();
  82     }
  83
  84     IDNESTCOUNT_SET(nestCnt);
  85
  86     AROS_LIBFUNC_EXIT
  87 } /* Exception */