test/exec/alert.c

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