test/exec/alert.c

   1 /* The main purpose is to test alert address detection and stack trace */
   2
   3 #include <aros/asmcall.h>
   4 #include <aros/debug.h>
   5 #include <exec/alerts.h>
   6 #include <exec/interrupts.h>
   7 #include <proto/dos.h>
   8 #include <proto/exec.h>
   9
  10 #include <string.h>
  11
  12 /*
  13  * SoftInt is the only way to simulate supervisor mode on hosted AROS.
  14  * Of course there's no real privilege level difference, however interrupts
  15  * in hosted AROS are running on a simulated supervisor level for internal
  16  * purposes (in order to avoid nesting interrupts).
  17  */
  18 static AROS_INTH1(superAlert, APTR, interruptData)
  19 {
  20     AROS_INTFUNC_INIT
  21
  22     D(bug("Supervisor code called\n"));
  23
  24     Alert((IPTR)interruptData);
  25
  26     return 0;
  27
  28     AROS_INTFUNC_EXIT
  29 }
  30
  31 struct Interrupt MyInt;
  32
  33 int main(int argc, char **argv)
  34 {
  35     IPTR n = AN_InitAPtr;
  36     BOOL super = FALSE;
  37     int i;
  38
  39     for (i = 1; i < argc; i++)
  40     {
  41         if (!stricmp(argv[i], "deadend"))
  42             n = AN_BogusExcpt;
  43         else if (!stricmp(argv[i], "supervisor"))
  44             super = TRUE;
  45     }
  46
  47     if (super)
  48     {
  49
  50         D(bug("Calling supervisor alert...\n"));
  51
  52         MyInt.is_Data = (APTR)n;
  53         MyInt.is_Code = (APTR)superAlert;
  54
  55         Cause(&MyInt);
  56     }
  57     else
  58     {
  59         Alert(n);
  60     }
  61
  62     return 0;
  63 }