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 AROS_UFH3(void, superAlert,
  19           AROS_UFHA(APTR, interruptData, A1),
  20           AROS_UFHA(APTR, interruptCode, A5),
  21           AROS_UFHA(struct ExecBase *, SysBase, A6))
  22 {
  23     AROS_USERFUNC_INIT
  24
  25     D(bug("Supervisor code called\n"));
  26
  27     Alert((IPTR)interruptData);
  28
  29     AROS_USERFUNC_EXIT
  30 }
  31
  32 struct Interrupt MyInt;
  33
  34 int main(int argc, char **argv)
  35 {
  36     IPTR n = AN_InitAPtr;
  37     BOOL super = FALSE;
  38     int i;
  39
  40     for (i = 1; i < argc; i++)
  41     {
  42         if (!stricmp(argv[i], "deadend"))
  43             n = AN_BogusExcpt;
  44         else if (!stricmp(argv[i], "supervisor"))
  45             super = TRUE;
  46     }
  47
  48     if (super)
  49     {
  50
  51         D(bug("Calling supervisor alert...\n"));
  52
  53         MyInt.is_Data = (APTR)n;
  54         MyInt.is_Code = superAlert;
  55
  56         Cause(&MyInt);
  57     }
  58     else
  59     {
  60         Alert(n);
  61     }
  62
  63     return 0;
  64 }