Redline/source/macerror.cpp
maride 02061d74c2 Original 1.0.5 code
(as received from Jonas Echterhoff)
2016-04-02 14:43:55 +02:00

116 lines
2.5 KiB
C++

#include <stdio.h>
#ifndef __TARGET_TOOLAPP
#include "screen.h"
#endif
/*
typedef struct
{
unsigned long fSaveSP,fSaveCR,fSaveLR,fResv0,fResv1,fSaveRTOC;
} tStackFrame;
asm unsigned long GetCallersSP( void )
{
lwz r3,0(SP)
blr
}
Str255 *FindRoutineName( unsigned long *codeAddress )
{
// look for the callers' "blr" instruction
// assume it's going to be within 8K instructions of the call site.
// this may or may not work for your code, worked for me.
// the MacsBug name follows shortly after the 'blr'
// and at a fixed offset that I figured out empirically.
int i;
for( i=0; i<8000; i++)
{
if (codeAddress[i] == 0x4E800020)
{
// found the 'blr'
if (codeAddress[i+1] == 0x00000000)
{
return (Str255*) ( ((unsigned char*)&codeAddress[i])+21 );
}
}
}
return nil;
}
inline void GetCallerName(Str255 callerName)
{
tStackFrame *frame = (tStackFrame*) GetCallersSP();
unsigned long *address = (unsigned long*)frame->fSaveLR;
Str255 *name = FindRoutineName( address );
if(name)
BlockMoveData(*name,callerName,(*name)[0]+1);
else
BlockMoveData("\p<Anonymous Routine>",callerName,20);
}
*/
void ShowAlert(char *str1, char *str2)
{
#ifndef __TARGET_TOOLAPP
ScreenExit();
#endif
AlertStdAlertParamRec alertParam={
false,false,nil,
"\pExit",
nil,
nil,
kAlertStdAlertOKButton,
0,
kWindowDefaultPosition};
Str255 pStr1,pStr2;
CopyCStringToPascal(str1,pStr1);
CopyCStringToPascal(str2,pStr2);
short hit;
OSErr err=StandardAlert(kAlertStopAlert,
pStr1,
pStr2,
&alertParam,
&hit);
if(err)ExitToShell();
}
void FailWithErrorString(char *string)
{
ShowAlert(string,"");
ExitToShell();
}
void PrintConsoleString(const char *fmt, ...)
{
va_list ap; // Pointer To List Of Arguments
if (fmt == NULL) // If There's No Text
return; // Do Nothing
char error[256];
va_start(ap, fmt); // Parses The String For Variables
vsprintf(error,fmt,ap); // And Converts Symbols To Actual Numbers
va_end(ap); // Results Are Stored In Text
/*
Str255 pStr;
CopyCStringToPascal(error,pStr);
DebugStr(pStr); */
printf("%s\n",error);
}
void HandleError(int code)
{
if(code)
{
char str1[80],str2[80];
char caller[80]="/p";
//GetCallerName((unsigned char*)caller);
CopyPascalStringToC((unsigned char*)caller,caller);
sprintf(str1,"A fatal error has occurred!!");
sprintf(str2,"Error ID=%d",code);// in function %s",code,caller);
ShowAlert(str1,str2);
ExitToShell();
}
}