rom/exec/alert.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Display an alert.
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/alerts.h>
  11 #include <exec/execbase.h>
  12 #include <exec/rawfmt.h>
  13 #include <proto/exec.h>
  14 #include <proto/kernel.h>
  15 #include <string.h>
  16
  17 #include "exec_intern.h"
  18 #include "exec_util.h"
  19 #include "etask.h"
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24
  25         AROS_LH1(void, Alert,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(ULONG, alertNum, D7),
  29
  30 /*  LOCATION */
  31         struct ExecBase *, SysBase, 18, Exec)
  32
  33 /*  FUNCTION
  34         Alerts the user of a serious system problem.
  35
  36     INPUTS
  37         alertNum - This is a number which contains information about
  38                 the reason for the call.
  39
  40     RESULT
  41         This routine may return, if the alert is not a dead-end one.
  42
  43     NOTES
  44         You should not call this routine because it halts the machine,
  45         displays the message and then may reboot it.
  46
  47     EXAMPLE
  48         // Dead-End alert: 680x0 Access To Odd Address
  49         Alert (0x80000003);
  50
  51     BUGS
  52
  53     SEE ALSO
  54
  55     INTERNALS
  56
  57 ******************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     Exec_ExtAlert(alertNum, __builtin_return_address(0), CALLER_FRAME, AT_NONE, NULL, SysBase);
  62
  63     AROS_LIBFUNC_EXIT
  64 }
  65
  66 static const ULONG contextSizes[] =
  67 {
  68     0,
  69     sizeof(struct ExceptionContext),
  70     sizeof(struct MungwallContext),
  71     sizeof(struct MMContext)
  72 };
  73
  74 void Exec_ExtAlert(ULONG alertNum, APTR location, APTR stack, UBYTE type, APTR data, struct ExecBase *SysBase)
  75 {
  76     struct Task *task = SysBase->ThisTask;
  77     int supervisor = KrnIsSuper();
  78     struct IntETask *iet = NULL;
  79
  80     D(bug("[exec] Alert 0x%08X, supervisor %d\n", alertNum, supervisor));
  81
  82     if (task && (task->tc_Flags & TF_ETASK) && (task->tc_State != TS_REMOVED))
  83     {
  84         iet = GetIntETask(task);
  85
  86         D(bug("[Alert] Task 0x%p, ETask 0x%p\n", task, iet));
  87
  88         /* Do we already have location set? */
  89         if (iet->iet_AlertFlags & AF_Location)
  90         {
  91             /* If yes, pick it up */
  92             location = iet->iet_AlertLocation;
  93             stack    = iet->iet_AlertStack;
  94         }
  95         else
  96         {
  97             if (supervisor && ((alertNum & ~AT_DeadEnd) == AN_StackProbe))
  98             {
  99                 /*
 100                  * Special case: AN_StackProbe issued by kernel's task dispatcher.
 101                  * Pick up data from task's context.
 102                  */
 103                 struct ExceptionContext *ctx = iet->iet_ETask.et_RegFrame;
 104
 105                 location = (APTR)ctx->PC;
 106                 stack    = (APTR)ctx->FP;
 107                 type     = AT_CPU;
 108                 data     = ctx;
 109             }
 110
 111             /* Set location */
 112             iet->iet_AlertFlags   |= AF_Location;
 113             iet->iet_AlertLocation = location;
 114             iet->iet_AlertStack    = stack;
 115
 116             D(bug("[Alert] Previous frame 0x%p, caller 0x%p\n", iet->iet_AlertStack, iet->iet_AlertLocation));
 117         }
 118
 119         /* If this is not a nested call, set the supplementary data if specified */
 120         if (data && !(iet->iet_AlertFlags & AF_Alert))
 121         {
 122             D(bug("[Alert] Setting alert context, type %u, data 0x%p\n", type, data));
 123
 124             iet->iet_AlertType = type;
 125             CopyMem(data, &iet->iet_AlertData, contextSizes[type]);
 126         }
 127         else
 128         {
 129             /* Either no data or already present */
 130             type = iet->iet_AlertType;
 131             data = &iet->iet_AlertData;
 132
 133             D(bug("[Alert] Got stored alert context, type %u, data 0x%p\n", type, data));
 134         }
 135     }
 136     else
 137         /*
 138          * If we have no task, or the task is being removed,
 139          * we can't use the user-mode routine.
 140          */
 141         supervisor = TRUE;
 142
 143     /*
 144      * If we are running in user mode we should first try to report a problem
 145      * using Intuition display.
 146      */
 147     if (!supervisor)
 148     {
 149         alertNum = Exec_UserAlert(alertNum, SysBase);
 150         if (!alertNum)
 151         {
 152             /*
 153              * UserAlert() succeeded and the user decided to continue the task.
 154              * Clear crash status and return happily
 155              */
 156             if (iet)
 157                 ResetETask(iet);
 158             return;
 159         }
 160     }
 161
 162     /* Hint for SystemAlert() - if AlertType is AT_NONE, we don't have AlertData */
 163     if (type == AT_NONE)
 164         data = NULL;
 165
 166     /*
 167      * We're here if Intuition failed. Use safe (but not so
 168      * system and user-friendly) way to post alerts.
 169      */
 170     Disable();
 171     Exec_SystemAlert(alertNum, location, stack, type, data, SysBase);
 172
 173     if (alertNum & AT_DeadEnd)
 174     {
 175         /* Um, we have to do something here in order to prevent the
 176            computer from continuing... */
 177         ColdReboot();
 178         ShutdownA(SD_ACTION_COLDREBOOT);
 179     }
 180
 181     Enable();
 182
 183     /*
 184      * We succesfully displayed an alert in supervisor mode.
 185      * Clear alert status by clearing respective fields in ETask.
 186      */
 187     if (iet)
 188         ResetETask(iet);
 189 }