[clinton/Virtual-Jaguar-Rx.git] / src / debugger / m68kDasmWin.cpp

//\r
//  m68kDasmWin.cpp - M68K disassembly window\r
//\r
// by Jean-Paul Mari\r
//\r
// JPM = Jean-Paul Mari <djipi.mari@gmail.com>\r
//\r
// Who  When        What\r
// ---  ----------  -------------------------------------------------------------\r
// JPM  06/27/2016  Created this file\r
// JPM  12/04/2016  Suport ELF debug information\r
// JPM              Replacing the ELF support by the debugger information manager calls\r
// JPM   Aug./2020  Display only the code related to the traced function, added different layouts, Qt/HTML text format support\r
//\r
\r
// STILL TO DO:\r
//\r
\r
#include <stdlib.h>\r
#include "debugger/m68kDasmWin.h"\r
#include "m68000/m68kinterface.h"\r
#include "dsp.h"\r
#include "gpu.h"\r
#include "DBGManager.h"\r
#include "settings.h"\r
\r
\r
// \r
m68KDasmWindow::m68KDasmWindow(QWidget * parent/*= 0*/): QWidget(parent, Qt::Dialog),\r
layout(new QVBoxLayout),\r
#ifdef MD_LAYOUTTEXTS\r
text(new QTextBrowser),\r
#endif\r
memBase(0)\r
{\r
	// Set font\r
	QFont fixedFont("Lucida Console", 8, QFont::Normal);\r
	fixedFont.setStyleHint(QFont::Monospace);   //TypeWriter\r
	fixedFont.setLetterSpacing(QFont::PercentageSpacing, 100);\r
\r
	// Set text in layout\r
#ifdef MD_LAYOUTTEXTS\r
	text->setFont(fixedFont);\r
	layout->addWidget(text);\r
#endif\r
\r
	// Set layout\r
	setLayout(layout);\r
}\r
\r
\r
//\r
void m68KDasmWindow::RefreshContents(void)\r
{\r
	QString s;\r
	char buffer[1024], string[1024], adresse[16];\r
	size_t pc = memBase, oldpc;\r
	size_t m68kPC = m68k_get_reg(NULL, M68K_REG_PC);\r
	size_t m68KPCNbrDisasmLines = 0;\r
	char *Symbol = NULL, *LineSrc, *CurrentLineSrc = NULL;\r
	bool m68kPCShow = false;\r
	bool constant, adr, equal, Error;\r
	size_t j, i;\r
	size_t	nbr = vjs.nbrdisasmlines;\r
	char *PtrFullSource, *CurrentPtrFullSource = (char *)calloc(1, 1);\r
	size_t NumLine;	// , CurrentNumLine = 0;\r
	size_t CurrentNumLine;\r
	char singleCharString[2] = { 0, 0 };\r
#if MD_LAYOUTFILE == 1\r
	bool In = true;\r
#else\r
#define In	true\r
#endif\r
\r
	for (i = 0; (i < nbr) && In; i++)\r
	{\r
		oldpc = pc;\r
		adr = constant = equal = false;\r
\r
		// Display source filename based on the program address\r
		if (vjs.displayFullSourceFilename && (PtrFullSource = DBGManager_GetFullSourceFilenameFromAdr(oldpc, &Error)) && strcmp(CurrentPtrFullSource, PtrFullSource))\r
		{\r
#if defined(MD_LAYOUTFILE)\r
			if (i)\r
#if MD_LAYOUTFILE != 1\r
			{\r
				// add an empty line for the display of the new filename\r
				nbr++;\r
				s += QString("<br>");\r
			}\r
#else\r
			{\r
				In = false;\r
			}\r
			else\r
#endif\r
#endif\r
			{\r
				CurrentNumLine = DBGManager_GetNumLineFromAdr(pc, DBG_NO_TAG) - 1;\r
				CurrentPtrFullSource = (char *)realloc(CurrentPtrFullSource, strlen(PtrFullSource) + 1);\r
				strcpy(CurrentPtrFullSource, PtrFullSource);\r
#if defined(MD_LAYOUTFILE)\r
				if (!Error)\r
				{\r
					// Referenced filename does exist\r
					sprintf(string, "<font color='#ff0000'><b>%s</b></font><br>", PtrFullSource);\r
				}\r
				else\r
				{\r
					// Referenced filename doesn't exist\r
					sprintf(string, "<font color='#00ff00'><b>%s</b></font><br>", PtrFullSource);\r
				}\r
				nbr++;\r
				s += QString(string);\r
#endif\r
			}\r
		}\r
		else\r
		{\r
			// Display line number based on the program address\r
			if ((NumLine = DBGManager_GetNumLineFromAdr(oldpc, DBG_NO_TAG)) && ((signed)NumLine > (signed)CurrentNumLine))\r
			{\r
#if MD_LAYOUTFILE != 1\r
				if ((signed)CurrentNumLine < 0)\r
				{\r
					CurrentNumLine = NumLine - 1;\r
				}\r
#endif\r
				sprintf(string, "| <font color='#006400'>%5u</font> | ", (unsigned int)++CurrentNumLine);		// (CurrentNumLine = NumLine));\r
			}\r
			else\r
			{\r
				sprintf(string, "|      | ");\r
			}\r
			s += QString(string);\r
\r
			// Display line source based on the program address\r
			if (((signed)CurrentNumLine > 0) && (LineSrc = DBGManager_GetLineSrcFromNumLineBaseAdr(oldpc, CurrentNumLine)) && (LineSrc != CurrentLineSrc))\r
			{\r
#if 0\r
				// add a color on the line text\r
				sprintf(string, "<font color='#006400'>%s</font><br>", (CurrentLineSrc = LineSrc));\r
				s += QString(string);\r
#else\r
				// add a color on the line text with HTML encoding\r
				s += QString("<font color='#006400'>");\r
				s += QString(QString((CurrentLineSrc = LineSrc)).toHtmlEscaped());\r
				s += QString("</font><br>");\r
#endif\r
				nbr++;\r
			}\r
			else\r
			{\r
				// Display symbol, or line source, based on the program address\r
				if (!CurrentLineSrc && !Symbol && (Symbol = DBGManager_GetSymbolNameFromAdr(oldpc)))\r
				{\r
					sprintf(string, "%s:<br>", Symbol);\r
					s += QString(string);\r
					nbr++;\r
				}\r
				// Display the assembly line based on the current PC\r
				else\r
				{\r
					pc += m68k_disassemble(buffer, (unsigned int)pc, 0, vjs.disasmopcodes);\r
\r
					if (m68kPC == oldpc)\r
					{\r
						sprintf(string, "-> <u>%06X: %s</u><br>", (unsigned int)oldpc, buffer);\r
						m68kPCShow = true;\r
						m68KPCNbrDisasmLines = i;\r
					}\r
					else\r
					{\r
						sprintf(string, "   %06X: %s<br>", (unsigned int)oldpc, buffer);\r
					}\r
\r
					buffer[0] = 0;	// Clear string\r
\r
					for (j = 0; j < strlen(string); j++)\r
					{\r
						if (string[j] == ' ')\r
						{\r
							strcat(buffer, "&nbsp;");\r
							adr = constant = false;\r
						}\r
						else\r
						{\r
							switch (string[j])\r
							{\r
							case	'#':\r
								constant = true;\r
								break;\r
\r
							case	'$':\r
								adr = true;\r
								break;\r
\r
							case	',':\r
								constant = adr = equal = false;\r
								break;\r
\r
							case	'=':\r
								equal = true;\r
								break;\r
							}\r
\r
							if (!constant && adr && !equal)\r
							{\r
								int l = 0;\r
								char *p;\r
								do\r
								{\r
									adresse[l++] = string[++j];\r
								} while ((string[(j + 1)] >= '0') && (string[(j + 1)] <= '9') || (string[(j + 1)] >= 'A') && (string[(j + 1)] <= 'F'));\r
								adresse[l] = 0;\r
\r
								if (Symbol = DBGManager_GetSymbolNameFromAdr(strtoul(adresse, &p, 16)))\r
								{\r
									strcat(buffer, Symbol);\r
								}\r
								else\r
								{\r
									strcat(buffer, "$");\r
									strcat(buffer, adresse);\r
								}\r
\r
								adr = false;\r
							}\r
							else\r
							{\r
								singleCharString[0] = string[j];\r
								strcat(buffer, singleCharString);\r
							}\r
						}\r
					}\r
\r
					Symbol = NULL;\r
					s += QString(buffer);\r
				}\r
			}\r
		}\r
	}\r
\r
	// Display generated text\r
	text->clear();\r
	if (m68kPCShow)\r
	{\r
		text->setText(s);\r
	}\r
	else\r
	{\r
		Use68KPCAddress();\r
		RefreshContents();\r
	}\r
\r
	// Set the scrollbar position in accordance of the M68K PC pointer \r
	if (m68KPCNbrDisasmLines > (nbr / 2))\r
	{\r
		text->verticalScrollBar()->setValue(text->verticalScrollBar()->maximum());\r
	}\r
	else\r
	{\r
		text->verticalScrollBar()->setValue(text->verticalScrollBar()->minimum());\r
	}\r
\r
	free(CurrentPtrFullSource);\r
}\r
\r
\r
// Set mem base PC address using the 68K pc current address\r
void m68KDasmWindow::Use68KPCAddress(void)\r
{\r
	memBase = m68k_get_reg(NULL, M68K_REG_PC);\r
}\r
\r
\r
// Set mem base PC address\r
void m68KDasmWindow::SetAddress(int address)\r
{\r
	memBase = address;\r
}\r
Commit	Line	Data
9bf5c434 JPM	1	//\r
	2	// m68kDasmWin.cpp - M68K disassembly window\r
	3	//\r
	4	// by Jean-Paul Mari\r
	5	//\r
	6	// JPM = Jean-Paul Mari <djipi.mari@gmail.com>\r
	7	//\r
	8	// Who When What\r
	9	// --- ---------- -------------------------------------------------------------\r
	10	// JPM 06/27/2016 Created this file\r
	11	// JPM 12/04/2016 Suport ELF debug information\r
	12	// JPM Replacing the ELF support by the debugger information manager calls\r
aae93d86	13	// JPM Aug./2020 Display only the code related to the traced function, added different layouts, Qt/HTML text format support\r
9bf5c434 JPM	14	//\r
	15	\r
	16	// STILL TO DO:\r
	17	//\r
	18	\r
aae93d86	19	#include <stdlib.h>\r
9bf5c434	20	#include "debugger/m68kDasmWin.h"\r
9bf5c434 JPM	21	#include "m68000/m68kinterface.h"\r
	22	#include "dsp.h"\r
	23	#include "gpu.h"\r
9bf5c434	24	#include "DBGManager.h"\r
9bf5c434 JPM	25	#include "settings.h"\r
	26	\r
	27	\r
	28	// \r
	29	m68KDasmWindow::m68KDasmWindow(QWidget * parent/= 0/): QWidget(parent, Qt::Dialog),\r
aae93d86 JPM	30	layout(new QVBoxLayout),\r
	31	#ifdef MD_LAYOUTTEXTS\r
	32	text(new QTextBrowser),\r
	33	#endif\r
	34	memBase(0)\r
9bf5c434	35	{\r
aae93d86	36	// Set font\r
9bf5c434	37	QFont fixedFont("Lucida Console", 8, QFont::Normal);\r
9bf5c434 JPM	38	fixedFont.setStyleHint(QFont::Monospace); //TypeWriter\r
9bf5c434 JPM	39	fixedFont.setLetterSpacing(QFont::PercentageSpacing, 100);\r
9bf5c434	40	\r
aae93d86 JPM	41	// Set text in layout\r
	42	#ifdef MD_LAYOUTTEXTS\r
	43	text->setFont(fixedFont);\r
9bf5c434	44	layout->addWidget(text);\r
aae93d86 JPM	45	#endif\r
	46	\r
	47	// Set layout\r
	48	setLayout(layout);\r
9bf5c434 JPM	49	}\r
	50	\r
	51	\r
	52	//\r
	53	void m68KDasmWindow::RefreshContents(void)\r
	54	{\r
9bf5c434 JPM	55	QString s;\r
	56	char buffer[1024], string[1024], adresse[16];\r
	57	size_t pc = memBase, oldpc;\r
	58	size_t m68kPC = m68k_get_reg(NULL, M68K_REG_PC);\r
	59	size_t m68KPCNbrDisasmLines = 0;\r
	60	char Symbol = NULL, LineSrc, *CurrentLineSrc = NULL;\r
	61	bool m68kPCShow = false;\r
	62	bool constant, adr, equal, Error;\r
	63	size_t j, i;\r
	64	size_t nbr = vjs.nbrdisasmlines;\r
	65	char PtrFullSource, CurrentPtrFullSource = (char *)calloc(1, 1);\r
	66	size_t NumLine; // , CurrentNumLine = 0;\r
9bf5c434 JPM	67	size_t CurrentNumLine;\r
9bf5c434 JPM	68	char singleCharString[2] = { 0, 0 };\r
aae93d86 JPM	69	#if MD_LAYOUTFILE == 1\r
	70	bool In = true;\r
	71	#else\r
	72	#define In true\r
	73	#endif\r
9bf5c434	74	\r
aae93d86	75	for (i = 0; (i < nbr) && In; i++)\r
9bf5c434	76	{\r
9bf5c434	77	oldpc = pc;\r
9bf5c434 JPM	78	adr = constant = equal = false;\r
	79	\r
	80	// Display source filename based on the program address\r
	81	if (vjs.displayFullSourceFilename && (PtrFullSource = DBGManager_GetFullSourceFilenameFromAdr(oldpc, &Error)) && strcmp(CurrentPtrFullSource, PtrFullSource))\r
	82	{\r
aae93d86 JPM	83	#if defined(MD_LAYOUTFILE)\r
	84	if (i)\r
	85	#if MD_LAYOUTFILE != 1\r
	86	{\r
	87	// add an empty line for the display of the new filename\r
	88	nbr++;\r
	89	s += QString("<br>");\r
	90	}\r
	91	#else\r
	92	{\r
	93	In = false;\r
	94	}\r
	95	else\r
	96	#endif\r
9bf5c434 JPM	97	#endif\r
9bf5c434 JPM	98	{\r
9bf5c434	99	CurrentNumLine = DBGManager_GetNumLineFromAdr(pc, DBG_NO_TAG) - 1;\r
9bf5c434 JPM	100	CurrentPtrFullSource = (char *)realloc(CurrentPtrFullSource, strlen(PtrFullSource) + 1);\r
9bf5c434 JPM	101	strcpy(CurrentPtrFullSource, PtrFullSource);\r
aae93d86	102	#if defined(MD_LAYOUTFILE)\r
9bf5c434 JPM	103	if (!Error)\r
9bf5c434 JPM	104	{\r
aae93d86	105	// Referenced filename does exist\r
9bf5c434 JPM	106	sprintf(string, "<font color='#ff0000'><b>%s</b></font><br>", PtrFullSource);\r
	107	}\r
	108	else\r
	109	{\r
aae93d86	110	// Referenced filename doesn't exist\r
9bf5c434 JPM	111	sprintf(string, "<font color='#00ff00'><b>%s</b></font><br>", PtrFullSource);\r
9bf5c434 JPM	112	}\r
aae93d86	113	nbr++;\r
9bf5c434	114	s += QString(string);\r
aae93d86	115	#endif\r
9bf5c434 JPM	116	}\r
9bf5c434 JPM	117	}\r
aae93d86	118	else\r
9bf5c434	119	{\r
aae93d86 JPM	120	// Display line number based on the program address\r
aae93d86 JPM	121	if ((NumLine = DBGManager_GetNumLineFromAdr(oldpc, DBG_NO_TAG)) && ((signed)NumLine > (signed)CurrentNumLine))\r
9bf5c434	122	{\r
aae93d86 JPM	123	#if MD_LAYOUTFILE != 1\r
	124	if ((signed)CurrentNumLine < 0)\r
	125	{\r
	126	CurrentNumLine = NumLine - 1;\r
	127	}\r
	128	#endif\r
	129	sprintf(string, "\| <font color='#006400'>%5u</font> \| ", (unsigned int)++CurrentNumLine); // (CurrentNumLine = NumLine));\r
	130	}\r
	131	else\r
	132	{\r
	133	sprintf(string, "\| \| ");\r
9bf5c434	134	}\r
9bf5c434	135	s += QString(string);\r
aae93d86 JPM	136	\r
	137	// Display line source based on the program address\r
	138	if (((signed)CurrentNumLine > 0) && (LineSrc = DBGManager_GetLineSrcFromNumLineBaseAdr(oldpc, CurrentNumLine)) && (LineSrc != CurrentLineSrc))\r
9bf5c434	139	{\r
aae93d86 JPM	140	#if 0\r
	141	// add a color on the line text\r
	142	sprintf(string, "<font color='#006400'>%s</font><br>", (CurrentLineSrc = LineSrc));\r
9bf5c434	143	s += QString(string);\r
aae93d86 JPM	144	#else\r
	145	// add a color on the line text with HTML encoding\r
	146	s += QString("<font color='#006400'>");\r
	147	s += QString(QString((CurrentLineSrc = LineSrc)).toHtmlEscaped());\r
	148	s += QString("</font><br>");\r
	149	#endif\r
9bf5c434 JPM	150	nbr++;\r
9bf5c434 JPM	151	}\r
9bf5c434 JPM	152	else\r
9bf5c434 JPM	153	{\r
aae93d86 JPM	154	// Display symbol, or line source, based on the program address\r
aae93d86 JPM	155	if (!CurrentLineSrc && !Symbol && (Symbol = DBGManager_GetSymbolNameFromAdr(oldpc)))\r
9bf5c434	156	{\r
aae93d86 JPM	157	sprintf(string, "%s:<br>", Symbol);\r
	158	s += QString(string);\r
	159	nbr++;\r
9bf5c434	160	}\r
aae93d86	161	// Display the assembly line based on the current PC\r
9bf5c434 JPM	162	else\r
9bf5c434 JPM	163	{\r
aae93d86	164	pc += m68k_disassemble(buffer, (unsigned int)pc, 0, vjs.disasmopcodes);\r
9bf5c434	165	\r
aae93d86	166	if (m68kPC == oldpc)\r
9bf5c434	167	{\r
aae93d86 JPM	168	sprintf(string, "-> <u>%06X: %s</u><br>", (unsigned int)oldpc, buffer);\r
	169	m68kPCShow = true;\r
	170	m68KPCNbrDisasmLines = i;\r
9bf5c434 JPM	171	}\r
	172	else\r
	173	{\r
aae93d86 JPM	174	sprintf(string, " %06X: %s<br>", (unsigned int)oldpc, buffer);\r
aae93d86 JPM	175	}\r
9bf5c434	176	\r
aae93d86	177	buffer[0] = 0; // Clear string\r
9bf5c434	178	\r
aae93d86 JPM	179	for (j = 0; j < strlen(string); j++)\r
	180	{\r
	181	if (string[j] == ' ')\r
	182	{\r
	183	strcat(buffer, " ");\r
	184	adr = constant = false;\r
9bf5c434	185	}\r
aae93d86	186	else\r
9bf5c434	187	{\r
aae93d86	188	switch (string[j])\r
9bf5c434	189	{\r
aae93d86 JPM	190	case '#':\r
	191	constant = true;\r
	192	break;\r
	193	\r
	194	case '$':\r
	195	adr = true;\r
	196	break;\r
	197	\r
	198	case ',':\r
	199	constant = adr = equal = false;\r
	200	break;\r
	201	\r
	202	case '=':\r
	203	equal = true;\r
	204	break;\r
	205	}\r
9bf5c434	206	\r
aae93d86	207	if (!constant && adr && !equal)\r
9bf5c434	208	{\r
aae93d86 JPM	209	int l = 0;\r
	210	char *p;\r
	211	do\r
	212	{\r
	213	adresse[l++] = string[++j];\r
	214	} while ((string[(j + 1)] >= '0') && (string[(j + 1)] <= '9') \|\| (string[(j + 1)] >= 'A') && (string[(j + 1)] <= 'F'));\r
	215	adresse[l] = 0;\r
	216	\r
	217	if (Symbol = DBGManager_GetSymbolNameFromAdr(strtoul(adresse, &p, 16)))\r
	218	{\r
	219	strcat(buffer, Symbol);\r
	220	}\r
	221	else\r
	222	{\r
	223	strcat(buffer, "$");\r
	224	strcat(buffer, adresse);\r
	225	}\r
	226	\r
	227	adr = false;\r
9bf5c434 JPM	228	}\r
	229	else\r
	230	{\r
aae93d86 JPM	231	singleCharString[0] = string[j];\r
aae93d86 JPM	232	strcat(buffer, singleCharString);\r
9bf5c434	233	}\r
9bf5c434 JPM	234	}\r
9bf5c434 JPM	235	}\r
9bf5c434	236	\r
aae93d86 JPM	237	Symbol = NULL;\r
	238	s += QString(buffer);\r
	239	}\r
9bf5c434 JPM	240	}\r
	241	}\r
	242	}\r
	243	\r
	244	// Display generated text\r
	245	text->clear();\r
	246	if (m68kPCShow)\r
	247	{\r
	248	text->setText(s);\r
	249	}\r
	250	else\r
	251	{\r
	252	Use68KPCAddress();\r
	253	RefreshContents();\r
	254	}\r
	255	\r
	256	// Set the scrollbar position in accordance of the M68K PC pointer \r
	257	if (m68KPCNbrDisasmLines > (nbr / 2))\r
	258	{\r
	259	text->verticalScrollBar()->setValue(text->verticalScrollBar()->maximum());\r
	260	}\r
	261	else\r
	262	{\r
	263	text->verticalScrollBar()->setValue(text->verticalScrollBar()->minimum());\r
	264	}\r
	265	\r
	266	free(CurrentPtrFullSource);\r
	267	}\r
	268	\r
	269	\r
9bf5c434	270	// Set mem base PC address using the 68K pc current address\r
aae93d86	271	void m68KDasmWindow::Use68KPCAddress(void)\r
9bf5c434 JPM	272	{\r
	273	memBase = m68k_get_reg(NULL, M68K_REG_PC);\r
	274	}\r
	275	\r
	276	\r
	277	// Set mem base PC address\r
	278	void m68KDasmWindow::SetAddress(int address)\r
	279	{\r
	280	memBase = address;\r
9bf5c434	281	}\r