mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-06-14 02:29:29 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
247 lines
11 KiB
C
247 lines
11 KiB
C
/*
|
|
File: Error.c
|
|
|
|
Contains: Process error recovery routines.
|
|
|
|
Written by: Erich Ringewald and his bestest buddy Philip York Goldman
|
|
|
|
Copyright: © 1987-1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<5> 1/21/91 DFH (KSM) Process Menu is now called Application Menu.
|
|
<3> 1/8/91 DFH (rdd) Changed CallDebugger to do just a minor switch to
|
|
pDebugProcess. Moved aeDebuggerNotify sending here from
|
|
BringProcessToFront(). Exception vectors now get stuffed with
|
|
the real subroutine address, rather than the address in the jump
|
|
table.
|
|
<0> 1/23/87 PYG New Today.
|
|
|
|
*/
|
|
|
|
#include <types.h>
|
|
#include <memory.h>
|
|
#include <menus.h>
|
|
#include <osutils.h>
|
|
#include <errors.h>
|
|
#include <retrace.h>
|
|
#include <segload.h>
|
|
#include <AppleEventsInternal.h>
|
|
#include <MFPrivate.h>
|
|
|
|
#include "Glue.h"
|
|
#include "SysMisc.h"
|
|
#include "Lomem.h"
|
|
#include "Data.h"
|
|
#include "AppleEventExtensions.h"
|
|
|
|
/* Function prototypes that should be in (yet another) header file */
|
|
Boolean IsNonFatalSysErr(short);
|
|
unsigned short ApplicationMenuItemFromPEntry(PEntryPtr);
|
|
|
|
void buserr(void), addrerr(void), ilglerr(void), zeroerr(void), traceerr(void), trap5err(void);
|
|
void trap6err(void), line1111err(void), chkerr(void), trapverr(void), priverr(void), unass(void);
|
|
void coprocerr(void), uniniterr(void), spurint(void);
|
|
|
|
/* MacsBug 5.5 and earlier...they grab the exception vectors */
|
|
#define IsOldDebugger() (XCEPTIONVECTORS[ID_LINE1010] < ROMBASE)
|
|
|
|
#pragma segment INIT
|
|
void
|
|
InitExceptions(void)
|
|
/* Set up the low memory exception vectors that we wish to trap.
|
|
* NOTE: This MUST be called only after the Process Mgr traps are patched, but as soon
|
|
* after as possible.
|
|
*/
|
|
{
|
|
register Ptr *biasedOldExceptionVectors;
|
|
|
|
#ifdef VBR_BIAS
|
|
Ptr *xceptionVectors = XCEPTIONVECTORS;
|
|
|
|
/* Add in vector base register (VBR) on '020 and above */
|
|
if (CPUFLAG >= 2)
|
|
(Ptr)xceptionVectors += GetVBR();
|
|
#endif VBR_BIAS
|
|
|
|
/* Need to fall thru to old vectors if old debugger exists */
|
|
IsOldDebugger = IsOldDebugger();
|
|
|
|
biasedOldExceptionVectors = oldExceptionVectors - 1;
|
|
biasedOldExceptionVectors[ID_BUSERR] = *(XCEPTIONVECTORS + ID_BUSERR); /* Save old bus error exception vector */
|
|
biasedOldExceptionVectors[ID_ADDRERR] = *(XCEPTIONVECTORS + ID_ADDRERR); /* Save old address error exception vector */
|
|
biasedOldExceptionVectors[ID_ILGLERR] = *(XCEPTIONVECTORS + ID_ILGLERR); /* Save old illegal error exception vector */
|
|
biasedOldExceptionVectors[ID_ZEROERR] = *(XCEPTIONVECTORS + ID_ZEROERR); /* Save old zero divide error exception vector */
|
|
|
|
*(XCEPTIONVECTORS + ID_BUSERR) = ROUTINE_ADDR(buserr); /* Set bus error exception vector */
|
|
*(XCEPTIONVECTORS + ID_ADDRERR) = ROUTINE_ADDR(addrerr); /* Set address error exception vector */
|
|
*(XCEPTIONVECTORS + ID_ILGLERR) = ROUTINE_ADDR(ilglerr); /* Set illegal error exception vector */
|
|
*(XCEPTIONVECTORS + ID_ZEROERR) = ROUTINE_ADDR(zeroerr); /* Set zero divide error exception vector */
|
|
}
|
|
|
|
#pragma segment Debugger
|
|
|
|
void
|
|
InitDebuggerExceptions(void)
|
|
{
|
|
register Ptr *biasedOldExceptionVectors;
|
|
|
|
biasedOldExceptionVectors = oldExceptionVectors - 1;
|
|
biasedOldExceptionVectors[ID_TRACE] = *(XCEPTIONVECTORS + ID_TRACE); /* Save old trace error exception vector */
|
|
biasedOldExceptionVectors[ID_TRAP5] = *(XCEPTIONVECTORS + ID_TRAP5); /* Save old trap5 error exception vector */
|
|
biasedOldExceptionVectors[ID_TRAP6] = *(XCEPTIONVECTORS + ID_TRAP6); /* Save old trap6 error exception vector */
|
|
biasedOldExceptionVectors[ID_LINE1111] = *(XCEPTIONVECTORS + ID_LINE1111); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_CHKERROR] = *(XCEPTIONVECTORS + ID_CHKERROR); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_TRAPVERR] = *(XCEPTIONVECTORS + ID_TRAPVERR); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_PRIVILEG] = *(XCEPTIONVECTORS + ID_PRIVILEG); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_MISCERR] = *(XCEPTIONVECTORS + ID_MISCERR); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_COPRERR] = *(XCEPTIONVECTORS + ID_COPRERR); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_UNINITINT] = *(XCEPTIONVECTORS + ID_UNINITINT); /* Save old FTrap error exception vector */
|
|
biasedOldExceptionVectors[ID_SPURINT] = *(XCEPTIONVECTORS + ID_SPURINT); /* Save old FTrap error exception vector */
|
|
|
|
*(XCEPTIONVECTORS + ID_TRACE) = ROUTINE_ADDR(traceerr); /* Set trap 5 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAP5) = ROUTINE_ADDR(trap5err); /* Set trap 5 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAP6) = ROUTINE_ADDR(trap6err); /* Set trap 6 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_LINE1111) = ROUTINE_ADDR(line1111err); /* Set FTrap error exception vector */
|
|
*(XCEPTIONVECTORS + ID_CHKERROR) = ROUTINE_ADDR(chkerr); /* Set chk error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAPVERR) = ROUTINE_ADDR(trapverr); /* Set trapV error exception vector */
|
|
*(XCEPTIONVECTORS + ID_PRIVILEG) = ROUTINE_ADDR(priverr); /* Set privilege error exception vector */
|
|
*(XCEPTIONVECTORS + ID_MISCERR) = ROUTINE_ADDR(unass); /* Set unassigned error exception vector */
|
|
*(XCEPTIONVECTORS + ID_COPRERR) = ROUTINE_ADDR(coprocerr); /* Set coprocessor error exception vector */
|
|
*(XCEPTIONVECTORS + ID_UNINITINT) = ROUTINE_ADDR(uniniterr); /* Set unitialized error exception vector */
|
|
*(XCEPTIONVECTORS + ID_SPURINT) = ROUTINE_ADDR(spurint); /* Set spurious error exception vector */
|
|
}
|
|
|
|
void
|
|
UnplugDebuggerExceptions(void)
|
|
{
|
|
register Ptr *biasedOldExceptionVectors = oldExceptionVectors - 1;
|
|
|
|
*(XCEPTIONVECTORS + ID_TRACE) = biasedOldExceptionVectors[ID_TRACE]; /* Restore trap 5 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAP5) = biasedOldExceptionVectors[ID_TRAP5]; /* Restore trap 5 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAP6) = biasedOldExceptionVectors[ID_TRAP6]; /* Restore trap 6 error exception vector */
|
|
*(XCEPTIONVECTORS + ID_LINE1111) = biasedOldExceptionVectors[ID_LINE1111]; /* Restore FTrap error exception vector */
|
|
*(XCEPTIONVECTORS + ID_CHKERROR) = biasedOldExceptionVectors[ID_CHKERROR]; /* Restore chk error exception vector */
|
|
*(XCEPTIONVECTORS + ID_TRAPVERR) = biasedOldExceptionVectors[ID_TRAPVERR]; /* Restore trapV error exception vector */
|
|
*(XCEPTIONVECTORS + ID_PRIVILEG) = biasedOldExceptionVectors[ID_PRIVILEG]; /* Restore privilege error exception vector */
|
|
*(XCEPTIONVECTORS + ID_MISCERR) = biasedOldExceptionVectors[ID_MISCERR]; /* Restore unassigned error exception vector */
|
|
*(XCEPTIONVECTORS + ID_COPRERR) = biasedOldExceptionVectors[ID_COPRERR]; /* Restore coprocessor error exception vector */
|
|
*(XCEPTIONVECTORS + ID_UNINITINT) = biasedOldExceptionVectors[ID_UNINITINT]; /* Restore unitialized error exception vector */
|
|
*(XCEPTIONVECTORS + ID_SPURINT) = biasedOldExceptionVectors[ID_SPURINT]; /* Restore spurious error exception vector */
|
|
}
|
|
|
|
#pragma segment Main
|
|
|
|
/* IsMacJmpDebugger. Return whether a system debugger is currently installed. */
|
|
Boolean
|
|
IsMacJmpDebugger(void)
|
|
{
|
|
return (MACJMPFLAG != NotImplemented) ? (*((char *)&MACJMPFLAG) & DEBUGGER_INITIALIZED) : (*((char *)&MACJMP) & DEBUGGER_INITIALIZED);
|
|
}
|
|
|
|
/* SysErrRecover. Handle System errors, by either destroying the current process, or
|
|
* by calling the old (single-tasking) error handler, depending on how deep we guess we
|
|
* are in the Process Mgr routines. This routine is called either via the low memory
|
|
* exception vectors, or by a call to _SysError.
|
|
* NOTE: Some of this logic should also be in c_exittoshell(), since the user may drop
|
|
* into MacsBug and do an ES from there(?).
|
|
* NOTE: This routine has been changed to return the old _SysErr routine addr, rather
|
|
* than calling it. This is necessary because there is currently a system patch to
|
|
* _SysErr to fix a bug in the menu mgr. This old routine has a case where it need to
|
|
* read/write the stack and assumes the stack (and the registers as well) is unchanged
|
|
* from the point at which _MenuKey called _SysErr. Therefore, we must return to the
|
|
* assembly routine, which will jump to the old routine.
|
|
*/
|
|
Ptr
|
|
SysErrRecover(short errID)
|
|
{
|
|
u_long olda5;
|
|
Ptr retval = nil;
|
|
|
|
/* Try to use the graphics world of the CURRENTA5. If _InitGraf has not been
|
|
* called, use whatever graphics world PROCESSMGRGLOBALS happens to have.
|
|
*/
|
|
if (QDEXIST == (char) 0)
|
|
{
|
|
olda5 = CurrentA5SimpleSetup();
|
|
(void) ProcessMgrA5Setup();
|
|
}
|
|
else
|
|
olda5 = ProcessMgrA5SimpleSetup();
|
|
|
|
/* Two choices: return the old trap, or quit the app right now. The old trap
|
|
* should be called if a) there is a system debugger (like MacsBug) installed,
|
|
* b) the error is not catastrophic, c) the error occurred with no distinct process
|
|
* in (e.g. during boot or a switch_task). Otherwise, it should be safe and
|
|
* effective to just force the current process to quit.
|
|
* NOTE: Have to call through for old menu mgr errors so that sys patch to SysError
|
|
* can either handle them (popups for MacII) or at least change them to the correct
|
|
* (i.e. positive ID) errors by recalling _SysError.
|
|
*/
|
|
if ( (IsMacJmpDebugger()) || IsNonFatalSysErr(errID) ||
|
|
(pCurrentProcess == nil) || (pCurrentProcess == pNullProcess) )
|
|
{
|
|
retval = patchtraps[SYSERROR].oldtrap;
|
|
}
|
|
else
|
|
{
|
|
DSERRCODE = errID;
|
|
ExitToShell();
|
|
/* It shouldn't ever get past ExitToShell, but we can handle it if does */
|
|
}
|
|
|
|
A5Restore(olda5);
|
|
return retval;
|
|
}
|
|
|
|
#pragma segment Debugger
|
|
|
|
/* Message format for aeDebuggerNotify we send when scheduling a debuggee */
|
|
typedef struct DebuggerNotifyMsg {
|
|
AETFHeader messageHeader;
|
|
KeyWord metaDataMark;
|
|
AETFParameter processHdr;
|
|
ProcessSerialNumber process;
|
|
} DebuggerNotifyMsg;
|
|
|
|
/* CallDebugger. Do a minor switch into the high-level debugger. Note that
|
|
* this avoids any of the normal work by the outgoing process, since that would
|
|
* involve forbidden execution time.
|
|
*/
|
|
void
|
|
CallDebugger(void)
|
|
{
|
|
register PEntryPtr pDBProc;
|
|
OSErr result;
|
|
HighLevelEventRecord theEvent;
|
|
DebuggerNotifyMsg msgStorage;
|
|
|
|
pDBProc = pDebugProcess;
|
|
assert (pDBProc != nil);
|
|
|
|
/* Bring new front process out of its slumber so it can be running */
|
|
CancelSleep(pDBProc);
|
|
|
|
/* Send aeDebuggerNotify AppleEvent to outgoer's debugger */
|
|
SetAppleEvent(aeDebuggerNotify, &theEvent);
|
|
GenericAEMessage(&msgStorage.messageHeader);
|
|
msgStorage.metaDataMark = aeEndOfMetaDataKeyword;
|
|
SetAEParmHeader(&msgStorage.processHdr, aeProcessKeyword, aeProcessParamType, sizeof(ProcessSerialNumber));
|
|
msgStorage.process = pCurrentProcess->p_serialNumber;
|
|
|
|
/* Post the event */
|
|
(void) BeginSystemMode();
|
|
result = PostHighLevelEvent((EventRecord *) &theEvent, (u_long) &pDBProc->p_serialNumber, 0, &msgStorage, sizeof(DebuggerNotifyMsg), receiverIDisPSN);
|
|
(void) EndSystemMode();
|
|
assert(result == noErr);
|
|
|
|
/* Disable process list item */
|
|
if (pCurrentProcess->p_layer != nil)
|
|
DisableItem(ApplicationMenuHdl, ApplicationMenuItemFromPEntry(pCurrentProcess));
|
|
pCurrentProcess->p_state = PRNULL;
|
|
coercionState = CS_DONE;
|
|
|
|
pDBProc->p_state = (pDBProc == pFrontProcess) ? PRRUN : PRBACKRUN;
|
|
switch_task(pDBProc);
|
|
}
|