[picodrive.git] / platform / uiq2 / debug.cpp

\r
#include <e32svr.h> // RDebug\r
#include "debug.h"\r
\r
#ifdef __WINS__\r
\r
void ExceptionHandler(TExcType exc) {}\r
\r
#else\r
\r
static const wchar_t * const exception_names[] = {\r
	L"General",\r
	L"IntegerDivideByZero",\r
	L"SingleStep",\r
	L"BreakPoint",\r
	L"IntegerOverflow",\r
	L"BoundsCheck",\r
	L"InvalidOpCode",\r
	L"DoubleFault",\r
	L"StackFault",\r
	L"AccessViolation",\r
	L"PrivInstruction",\r
	L"Alignment",\r
	L"PageFault",\r
	L"FloatDenormal",\r
	L"FloatDivideByZero",\r
	L"FloatInexactResult",\r
	L"FloatInvalidOperation",\r
	L"FloatOverflow",\r
	L"FloatStackCheck",\r
	L"FloatUnderflow",\r
	L"Abort",\r
	L"Kill",\r
	L"DataAbort",\r
	L"CodeAbort",\r
	L"MaxNumber",\r
	L"InvalidVector",\r
	L"UserInterrupt",\r
	L"Unknown"\r
};\r
\r
\r
static void getASpace(TUint *code_start, TUint *code_end, TUint *stack_start, TUint *stack_end)\r
{\r
	TUint pc, sp;\r
	RChunk chunk;\r
	TFullName chunkname;\r
	TFindChunk findChunk(_L("*"));\r
\r
	asm volatile ("str pc, %0" : "=m" (pc) );\r
	asm volatile ("str sp, %0" : "=m" (sp) );\r
\r
	while( findChunk.Next(chunkname) != KErrNotFound ) {\r
		chunk.Open(findChunk);\r
		if((TUint)chunk.Base()+chunk.Bottom() < pc && pc < (TUint)chunk.Base()+chunk.Top()) {\r
			if(code_start) *code_start = (TUint)chunk.Base()+chunk.Bottom();\r
			if(code_end)   *code_end   = (TUint)chunk.Base()+chunk.Top();\r
		} else\r
		if((TUint)chunk.Base()+chunk.Bottom() < sp && sp < (TUint)chunk.Base()+chunk.Top()) {\r
			if(stack_start) *stack_start = (TUint)chunk.Base()+chunk.Bottom();\r
			if(stack_end)   *stack_end   = (TUint)chunk.Base()+chunk.Top();\r
		}\r
		chunk.Close();\r
	}\r
}\r
\r
// tmp\r
#if defined(__DEBUG_PRINT)\r
extern "C" char *debugString();\r
#endif\r
\r
// our very own exception handler\r
void ExceptionHandler(TExcType exc)\r
{\r
	TUint lr, sp, i;\r
	TUint stack_end	= 0;				// ending address of our stack chunk\r
	TUint code_start = 0, code_end = 0; // starting and ending addresses of our code chunk\r
	TUint guessed_address = 0;\r
\r
	asm volatile ("str lr, %0" : "=m" (lr) );\r
	asm volatile ("str sp, %0" : "=m" (sp) );\r
\r
	// first get some info about the chunks we live in\r
	getASpace(&code_start, &code_end, 0, &stack_end);\r
\r
	// now we begin some black magic tricks\r
	// we go up our stack until we pass our caller address\r
	for(; sp < stack_end; sp += 4)\r
		if(*(TUint *)sp == lr) break;\r
\r
	// there might be mirored caller address\r
	for(i = sp + 4; i < sp + 0x300 && i < stack_end; i += 4)\r
		if(*(TUint *)i == lr) { sp = i; break; }\r
\r
	// aah, it is always 0x9c bytes away from the caller address in my firmware,\r
	// don't know how to detect it in any other way\r
	sp += 0x9c;\r
	guessed_address = *(TUint *)sp;\r
\r
	// output the info\r
	TUint exec_show = exc;\r
	if(exec_show > 27) exec_show = 27;\r
	TPtrC ptrExc((TUint16 *) exception_names[exec_show]);\r
\r
	RDebug::Print(_L("!!!Exception %i (%S) @ 0x%08x (guessed; relative=0x%08x)"), exc, &ptrExc, guessed_address, guessed_address - code_start);\r
#ifdef __DEBUG_PRINT_FILE\r
	DEBUGPRINT(   _L("!!!Exception %i (%S) @ 0x%08x (guessed; relative=0x%08x)"), exc, &ptrExc, guessed_address, guessed_address - code_start);\r
#endif\r
\r
	TBuf<148> buff1;\r
	TBuf<10>  buff2;\r
	buff1.Copy(_L("  guessed stack: "));\r
\r
	for(sp += 4, i = 0; i < 5 && sp < stack_end; sp += 4) {\r
		if((*(TUint *)sp >> 28) == 5) {\r
			if(i++) buff1.Append(_L(", "));\r
			buff2.Format(_L("0x%08x"), *(TUint *)sp);\r
			buff1.Append(buff2);\r
		}\r
		else if(code_start < *(TUint *)sp && *(TUint *)sp < code_end) {\r
			if(i++) buff1.Append(_L(", "));\r
			buff2.Format(_L("0x%08x"), *(TUint *)sp);\r
			buff1.Append(buff2);\r
			buff1.Append(_L(" ("));\r
			buff2.Format(_L("0x%08x"), *(TUint *)sp - code_start);\r
			buff1.Append(buff2);\r
			buff1.Append(_L(")"));\r
		}\r
	}\r
	RDebug::Print(_L("%S"), &buff1);\r
#ifdef __DEBUG_PRINT_FILE\r
	DEBUGPRINT(_L("%S"), &buff1);\r
#endif\r
\r
	// tmp\r
#if defined(__DEBUG_PRINT)\r
	char *ps, *cstr = debugString();\r
	for(ps = cstr; *ps; ps++) {\r
	  if(*ps == '\n') {\r
	    *ps = 0;\r
	    dprintf(cstr);\r
		cstr = ps+1;\r
	  }\r
	}\r
#endif\r
\r
//	RDebug::Print(_L("Stack dump:"));\r
//	asm volatile ("str sp, %0" : "=m" (sp) );\r
//	for(TUint i = sp+0x400; i >= sp-16; i-=4)\r
//		RDebug::Print(_L("%08x: %08x"), i, *(int *)i);\r
\r
	// more descriptive replacement of "KERN-EXEC 3" panic\r
	buff1.Format(_L("K-EX3: %S"), &ptrExc);\r
	User::Panic(buff1, exc);\r
}\r
\r
#endif // ifdef __WINS__\r
\r
\r
#if defined(__DEBUG_PRINT) || defined(__WINS__)\r
\r
#ifndef __DLL__\r
	// c string dumper for RDebug::Print()\r
	static	TBuf<1024> sTextBuffer;\r
	TDesC* DO_CONV(const char* s)\r
	{\r
		TPtrC8	text8((TUint8*) (s));\r
		sTextBuffer.Copy(text8);\r
		return &sTextBuffer;\r
	}\r
#endif\r
\r
#ifdef __DEBUG_PRINT_C\r
	#include <stdarg.h> // va_*\r
	#include <stdio.h>  // vsprintf\r
\r
	// debug print from c code\r
	extern "C" void dprintf(char *format, ...)\r
	{\r
		va_list args;\r
		char    buffer[512];\r
\r
		va_start(args,format);\r
		vsprintf(buffer,format,args);\r
		va_end(args);\r
\r
		DEBUGPRINT(_L("%S"), DO_CONV(buffer));\r
	}\r
#endif\r
\r
#ifdef __DEBUG_PRINT_FILE\r
	#include <f32file.h>\r
\r
	// note: uses tls, leaks some mem\r
	void debugPrintFileInit()\r
	{\r
		RFs *fs = new(ELeave) RFs;\r
		fs->Connect();\r
		RFile *file = new(ELeave) RFile;\r
		// try to open\r
		TInt    res = file->Open(*fs, _L("C:\\documents\\Media files\\other\\snes9x.log"), EFileWrite|EFileShareAny);\r
		if(res) res = file->Open(*fs, _L("C:\\snes9x.log"), EFileWrite|EFileShareAny);\r
		if(!res) { TInt size; file->Size(size); file->Seek(ESeekStart, size); }\r
		// try to create\r
		if(res) res = file->Create(*fs, _L("C:\\documents\\Media files\\other\\snes9x.log"), EFileWrite|EFileShareAny);\r
		if(res) res = file->Create(*fs, _L("C:\\snes9x.log"), EFileWrite|EFileShareAny);\r
		Dll::SetTls(res ? 0 : file);\r
	}\r
\r
	// debug print to file\r
	void debugPrintFile(TRefByValue<const TDesC> aFmt, ...)\r
	{\r
		// get RFile\r
		RFile *file = (RFile *) Dll::Tls();\r
		if(!file) return; // shit!\r
\r
		TTime now; now.UniversalTime();\r
		TBuf<512>  tmpBuff;\r
		TBuf8<512> tmpBuff8;\r
		TInt size;\r
\r
		file->Size(size); file->Seek(ESeekStart, size); // something else could have written to the file\r
\r
		now.FormatL(tmpBuff, _L("%H:%T:%S.%C: "));\r
		tmpBuff8.Copy(tmpBuff);\r
		file->Write(tmpBuff8);\r
\r
		VA_LIST args;\r
		VA_START(args, aFmt);\r
		tmpBuff.FormatList(aFmt, args);\r
		VA_END(args);\r
		tmpBuff8.Copy(tmpBuff);\r
		file->Write(tmpBuff8);\r
\r
		file->Write(TPtrC8((TUint8 const *) "\r\n"));\r
		file->Flush();\r
	}\r
#endif\r
\r
#endif\r
\r
Commit	Line	Data
	1	\r
	2	#include <e32svr.h> // RDebug\r
	3	#include "debug.h"\r
	4	\r
	5	#ifdef __WINS__\r
	6	\r
	7	void ExceptionHandler(TExcType exc) {}\r
	8	\r
	9	#else\r
	10	\r
	11	static const wchar_t * const exception_names[] = {\r
	12	L"General",\r
	13	L"IntegerDivideByZero",\r
	14	L"SingleStep",\r
	15	L"BreakPoint",\r
	16	L"IntegerOverflow",\r
	17	L"BoundsCheck",\r
	18	L"InvalidOpCode",\r
	19	L"DoubleFault",\r
	20	L"StackFault",\r
	21	L"AccessViolation",\r
	22	L"PrivInstruction",\r
	23	L"Alignment",\r
	24	L"PageFault",\r
	25	L"FloatDenormal",\r
	26	L"FloatDivideByZero",\r
	27	L"FloatInexactResult",\r
	28	L"FloatInvalidOperation",\r
	29	L"FloatOverflow",\r
	30	L"FloatStackCheck",\r
	31	L"FloatUnderflow",\r
	32	L"Abort",\r
	33	L"Kill",\r
	34	L"DataAbort",\r
	35	L"CodeAbort",\r
	36	L"MaxNumber",\r
	37	L"InvalidVector",\r
	38	L"UserInterrupt",\r
	39	L"Unknown"\r
	40	};\r
	41	\r
	42	\r
	43	static void getASpace(TUint code_start, TUint code_end, TUint stack_start, TUint stack_end)\r
	44	{\r
	45	TUint pc, sp;\r
	46	RChunk chunk;\r
	47	TFullName chunkname;\r
	48	TFindChunk findChunk(_L("*"));\r
	49	\r
	50	asm volatile ("str pc, %0" : "=m" (pc) );\r
	51	asm volatile ("str sp, %0" : "=m" (sp) );\r
	52	\r
	53	while( findChunk.Next(chunkname) != KErrNotFound ) {\r
	54	chunk.Open(findChunk);\r
	55	if((TUint)chunk.Base()+chunk.Bottom() < pc && pc < (TUint)chunk.Base()+chunk.Top()) {\r
	56	if(code_start) *code_start = (TUint)chunk.Base()+chunk.Bottom();\r
	57	if(code_end) *code_end = (TUint)chunk.Base()+chunk.Top();\r
	58	} else\r
	59	if((TUint)chunk.Base()+chunk.Bottom() < sp && sp < (TUint)chunk.Base()+chunk.Top()) {\r
	60	if(stack_start) *stack_start = (TUint)chunk.Base()+chunk.Bottom();\r
	61	if(stack_end) *stack_end = (TUint)chunk.Base()+chunk.Top();\r
	62	}\r
	63	chunk.Close();\r
	64	}\r
	65	}\r
	66	\r
	67	// tmp\r
	68	#if defined(__DEBUG_PRINT)\r
	69	extern "C" char *debugString();\r
	70	#endif\r
	71	\r
	72	// our very own exception handler\r
	73	void ExceptionHandler(TExcType exc)\r
	74	{\r
	75	TUint lr, sp, i;\r
	76	TUint stack_end = 0; // ending address of our stack chunk\r
	77	TUint code_start = 0, code_end = 0; // starting and ending addresses of our code chunk\r
	78	TUint guessed_address = 0;\r
	79	\r
	80	asm volatile ("str lr, %0" : "=m" (lr) );\r
	81	asm volatile ("str sp, %0" : "=m" (sp) );\r
	82	\r
	83	// first get some info about the chunks we live in\r
	84	getASpace(&code_start, &code_end, 0, &stack_end);\r
	85	\r
	86	// now we begin some black magic tricks\r
	87	// we go up our stack until we pass our caller address\r
	88	for(; sp < stack_end; sp += 4)\r
	89	if((TUint )sp == lr) break;\r
	90	\r
	91	// there might be mirored caller address\r
	92	for(i = sp + 4; i < sp + 0x300 && i < stack_end; i += 4)\r
	93	if((TUint )i == lr) { sp = i; break; }\r
	94	\r
	95	// aah, it is always 0x9c bytes away from the caller address in my firmware,\r
	96	// don't know how to detect it in any other way\r
	97	sp += 0x9c;\r
	98	guessed_address = (TUint )sp;\r
	99	\r
	100	// output the info\r
	101	TUint exec_show = exc;\r
	102	if(exec_show > 27) exec_show = 27;\r
	103	TPtrC ptrExc((TUint16 *) exception_names[exec_show]);\r
	104	\r
	105	RDebug::Print(_L("!!!Exception %i (%S) @ 0x%08x (guessed; relative=0x%08x)"), exc, &ptrExc, guessed_address, guessed_address - code_start);\r
	106	#ifdef __DEBUG_PRINT_FILE\r
	107	DEBUGPRINT( _L("!!!Exception %i (%S) @ 0x%08x (guessed; relative=0x%08x)"), exc, &ptrExc, guessed_address, guessed_address - code_start);\r
	108	#endif\r
	109	\r
	110	TBuf<148> buff1;\r
	111	TBuf<10> buff2;\r
	112	buff1.Copy(_L(" guessed stack: "));\r
	113	\r
	114	for(sp += 4, i = 0; i < 5 && sp < stack_end; sp += 4) {\r
	115	if(((TUint )sp >> 28) == 5) {\r
	116	if(i++) buff1.Append(_L(", "));\r
	117	buff2.Format(_L("0x%08x"), (TUint )sp);\r
	118	buff1.Append(buff2);\r
	119	}\r
	120	else if(code_start < (TUint )sp && (TUint )sp < code_end) {\r
	121	if(i++) buff1.Append(_L(", "));\r
	122	buff2.Format(_L("0x%08x"), (TUint )sp);\r
	123	buff1.Append(buff2);\r
	124	buff1.Append(_L(" ("));\r
	125	buff2.Format(_L("0x%08x"), (TUint )sp - code_start);\r
	126	buff1.Append(buff2);\r
	127	buff1.Append(_L(")"));\r
	128	}\r
	129	}\r
	130	RDebug::Print(_L("%S"), &buff1);\r
	131	#ifdef __DEBUG_PRINT_FILE\r
	132	DEBUGPRINT(_L("%S"), &buff1);\r
	133	#endif\r
	134	\r
	135	// tmp\r
	136	#if defined(__DEBUG_PRINT)\r
	137	char ps, cstr = debugString();\r
	138	for(ps = cstr; *ps; ps++) {\r
	139	if(*ps == '\n') {\r
	140	*ps = 0;\r
	141	dprintf(cstr);\r
	142	cstr = ps+1;\r
	143	}\r
	144	}\r
	145	#endif\r
	146	\r
	147	// RDebug::Print(_L("Stack dump:"));\r
	148	// asm volatile ("str sp, %0" : "=m" (sp) );\r
	149	// for(TUint i = sp+0x400; i >= sp-16; i-=4)\r
	150	// RDebug::Print(_L("%08x: %08x"), i, (int )i);\r
	151	\r
	152	// more descriptive replacement of "KERN-EXEC 3" panic\r
	153	buff1.Format(_L("K-EX3: %S"), &ptrExc);\r
	154	User::Panic(buff1, exc);\r
	155	}\r
	156	\r
	157	#endif // ifdef __WINS__\r
	158	\r
	159	\r
	160	#if defined(__DEBUG_PRINT) \|\| defined(__WINS__)\r
	161	\r
	162	#ifndef __DLL__\r
	163	// c string dumper for RDebug::Print()\r
	164	static TBuf<1024> sTextBuffer;\r
	165	TDesC* DO_CONV(const char* s)\r
	166	{\r
	167	TPtrC8 text8((TUint8*) (s));\r
	168	sTextBuffer.Copy(text8);\r
	169	return &sTextBuffer;\r
	170	}\r
	171	#endif\r
	172	\r
	173	#ifdef __DEBUG_PRINT_C\r
	174	#include <stdarg.h> // va_*\r
	175	#include <stdio.h> // vsprintf\r
	176	\r
	177	// debug print from c code\r
	178	extern "C" void dprintf(char *format, ...)\r
	179	{\r
	180	va_list args;\r
	181	char buffer[512];\r
	182	\r
	183	va_start(args,format);\r
	184	vsprintf(buffer,format,args);\r
	185	va_end(args);\r
	186	\r
	187	DEBUGPRINT(_L("%S"), DO_CONV(buffer));\r
	188	}\r
	189	#endif\r
	190	\r
	191	#ifdef __DEBUG_PRINT_FILE\r
	192	#include <f32file.h>\r
	193	\r
	194	// note: uses tls, leaks some mem\r
	195	void debugPrintFileInit()\r
	196	{\r
	197	RFs *fs = new(ELeave) RFs;\r
	198	fs->Connect();\r
	199	RFile *file = new(ELeave) RFile;\r
	200	// try to open\r
	201	TInt res = file->Open(*fs, _L("C:\\documents\\Media files\\other\\snes9x.log"), EFileWrite\|EFileShareAny);\r
	202	if(res) res = file->Open(*fs, _L("C:\\snes9x.log"), EFileWrite\|EFileShareAny);\r
	203	if(!res) { TInt size; file->Size(size); file->Seek(ESeekStart, size); }\r
	204	// try to create\r
	205	if(res) res = file->Create(*fs, _L("C:\\documents\\Media files\\other\\snes9x.log"), EFileWrite\|EFileShareAny);\r
	206	if(res) res = file->Create(*fs, _L("C:\\snes9x.log"), EFileWrite\|EFileShareAny);\r
	207	Dll::SetTls(res ? 0 : file);\r
	208	}\r
	209	\r
	210	// debug print to file\r
	211	void debugPrintFile(TRefByValue<const TDesC> aFmt, ...)\r
	212	{\r
	213	// get RFile\r
	214	RFile file = (RFile ) Dll::Tls();\r
	215	if(!file) return; // shit!\r
	216	\r
	217	TTime now; now.UniversalTime();\r
	218	TBuf<512> tmpBuff;\r
	219	TBuf8<512> tmpBuff8;\r
	220	TInt size;\r
	221	\r
	222	file->Size(size); file->Seek(ESeekStart, size); // something else could have written to the file\r
	223	\r
	224	now.FormatL(tmpBuff, _L("%H:%T:%S.%C: "));\r
	225	tmpBuff8.Copy(tmpBuff);\r
	226	file->Write(tmpBuff8);\r
	227	\r
	228	VA_LIST args;\r
	229	VA_START(args, aFmt);\r
	230	tmpBuff.FormatList(aFmt, args);\r
	231	VA_END(args);\r
	232	tmpBuff8.Copy(tmpBuff);\r
	233	file->Write(tmpBuff8);\r
	234	\r
	235	file->Write(TPtrC8((TUint8 const *) "\r\n"));\r
	236	file->Flush();\r
	237	}\r
	238	#endif\r
	239	\r
	240	#endif\r
	241	\r