rom/exec/exception.c

   1 /*
   2     Copyright © 1995-2010, 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 task 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 task exception.
  32             A6  -   SysBase
  33
  34     INPUTS
  35
  36     RESULT
  37
  38     NOTES
  39         This function is private. Do not call it from any program.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         Dispatch()
  47
  48     INTERNALS
  49         Unlike in AmigaOS task function is called in user mode.
  50
  51 ******************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     struct Task *task = FindTask (NULL);
  56     BYTE nestCnt;
  57     ULONG flags;
  58
  59     task->tc_Flags &= ~TF_EXCEPT;
  60
  61     nestCnt = SysBase->IDNestCnt;
  62     SysBase->IDNestCnt = 0;
  63
  64     while ((flags = (task->tc_SigExcept & task->tc_SigRecvd)))
  65     {
  66         task->tc_SigExcept ^= flags;
  67         task->tc_SigRecvd  ^= flags;
  68
  69         Enable();
  70
  71         /* Call the Exception */
  72         if(task->tc_ExceptCode)
  73         {
  74             task->tc_SigExcept |= AROS_UFC3(ULONG, task->tc_ExceptCode,
  75                 AROS_UFCA(APTR, task->tc_ExceptData, A1),
  76                 AROS_UFCA(ULONG, flags, D0),
  77                 AROS_UFCA(struct ExecBase *, SysBase, A6));
  78         }
  79
  80         Disable();
  81     }
  82
  83     SysBase->IDNestCnt = nestCnt;
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* Exception */