[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 & a status bar, 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
#if MD_LAYOUTFILE == 1\r
statusbar(new QStatusBar),\r
#endif\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
	// Status bar\r
#if MD_LAYOUTFILE == 1\r
	layout->addWidget(statusbar);\r
	setLayout(layout);\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;\r
	DBGstatus Status;\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, &Status)) && 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 (Status)\r
				{\r
					// Referenced filename doesn't exist\r
					sprintf(string, "<font color='#ff0000'><b>%s</b></font><br>", PtrFullSource);\r
#if MD_LAYOUTFILE == 1\r
					// Display status bar\r
					if ((Status & DBGSTATUS_OUTDATEDFILE))\r
					{\r
						statusbar->setStyleSheet("background-color: lightyellow; font: bold");\r
						statusbar->showMessage(QString("Outdated source file"));\r
					}\r
					else\r
					{\r
						statusbar->setStyleSheet("background-color: tomato; font: bold");\r
						statusbar->showMessage(QString("Unavailable source file"));\r
					}\r
#endif\r
				}\r
				else\r
				{\r
					// Referenced filename does exist\r
					sprintf(string, "<font color='#00ff00'><b>%s</b></font><br>", PtrFullSource);\r
#if MD_LAYOUTFILE == 1\r
					// Display status bar\r
					statusbar->setStyleSheet("background-color: transparent; font: bold");\r
					statusbar->showMessage(QString(""));\r
#endif\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) && !Status)\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
009df4d7	13	// JPM Aug./2020 Display only the code related to the traced function, added different layouts & a status bar, 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	30	layout(new QVBoxLayout),\r
009df4d7 JPM	31	#if MD_LAYOUTFILE == 1\r
	32	statusbar(new QStatusBar),\r
	33	#endif\r
aae93d86 JPM	34	#ifdef MD_LAYOUTTEXTS\r
	35	text(new QTextBrowser),\r
	36	#endif\r
	37	memBase(0)\r
9bf5c434	38	{\r
aae93d86	39	// Set font\r
9bf5c434	40	QFont fixedFont("Lucida Console", 8, QFont::Normal);\r
9bf5c434 JPM	41	fixedFont.setStyleHint(QFont::Monospace); //TypeWriter\r
9bf5c434 JPM	42	fixedFont.setLetterSpacing(QFont::PercentageSpacing, 100);\r
9bf5c434	43	\r
aae93d86 JPM	44	// Set text in layout\r
	45	#ifdef MD_LAYOUTTEXTS\r
	46	text->setFont(fixedFont);\r
9bf5c434	47	layout->addWidget(text);\r
aae93d86 JPM	48	#endif\r
aae93d86 JPM	49	\r
009df4d7 JPM	50	// Status bar\r
	51	#if MD_LAYOUTFILE == 1\r
	52	layout->addWidget(statusbar);\r
	53	setLayout(layout);\r
	54	#endif\r
	55	\r
aae93d86 JPM	56	// Set layout\r
aae93d86 JPM	57	setLayout(layout);\r
9bf5c434 JPM	58	}\r
	59	\r
	60	\r
	61	//\r
	62	void m68KDasmWindow::RefreshContents(void)\r
	63	{\r
9bf5c434 JPM	64	QString s;\r
	65	char buffer[1024], string[1024], adresse[16];\r
	66	size_t pc = memBase, oldpc;\r
	67	size_t m68kPC = m68k_get_reg(NULL, M68K_REG_PC);\r
	68	size_t m68KPCNbrDisasmLines = 0;\r
	69	char Symbol = NULL, LineSrc, *CurrentLineSrc = NULL;\r
	70	bool m68kPCShow = false;\r
009df4d7 JPM	71	bool constant, adr, equal;\r
009df4d7 JPM	72	DBGstatus Status;\r
9bf5c434 JPM	73	size_t j, i;\r
	74	size_t nbr = vjs.nbrdisasmlines;\r
	75	char PtrFullSource, CurrentPtrFullSource = (char *)calloc(1, 1);\r
	76	size_t NumLine; // , CurrentNumLine = 0;\r
9bf5c434 JPM	77	size_t CurrentNumLine;\r
9bf5c434 JPM	78	char singleCharString[2] = { 0, 0 };\r
aae93d86 JPM	79	#if MD_LAYOUTFILE == 1\r
	80	bool In = true;\r
	81	#else\r
	82	#define In true\r
	83	#endif\r
9bf5c434	84	\r
aae93d86	85	for (i = 0; (i < nbr) && In; i++)\r
9bf5c434	86	{\r
9bf5c434	87	oldpc = pc;\r
9bf5c434 JPM	88	adr = constant = equal = false;\r
	89	\r
	90	// Display source filename based on the program address\r
009df4d7	91	if (vjs.displayFullSourceFilename && (PtrFullSource = DBGManager_GetFullSourceFilenameFromAdr(oldpc, &Status)) && strcmp(CurrentPtrFullSource, PtrFullSource))\r
9bf5c434	92	{\r
aae93d86 JPM	93	#if defined(MD_LAYOUTFILE)\r
	94	if (i)\r
	95	#if MD_LAYOUTFILE != 1\r
	96	{\r
	97	// add an empty line for the display of the new filename\r
	98	nbr++;\r
	99	s += QString("<br>");\r
	100	}\r
	101	#else\r
	102	{\r
	103	In = false;\r
	104	}\r
	105	else\r
	106	#endif\r
9bf5c434 JPM	107	#endif\r
9bf5c434 JPM	108	{\r
9bf5c434	109	CurrentNumLine = DBGManager_GetNumLineFromAdr(pc, DBG_NO_TAG) - 1;\r
9bf5c434 JPM	110	CurrentPtrFullSource = (char *)realloc(CurrentPtrFullSource, strlen(PtrFullSource) + 1);\r
9bf5c434 JPM	111	strcpy(CurrentPtrFullSource, PtrFullSource);\r
aae93d86	112	#if defined(MD_LAYOUTFILE)\r
009df4d7	113	if (Status)\r
9bf5c434	114	{\r
009df4d7	115	// Referenced filename doesn't exist\r
9bf5c434	116	sprintf(string, "<font color='#ff0000'><b>%s</b></font><br>", PtrFullSource);\r
009df4d7 JPM	117	#if MD_LAYOUTFILE == 1\r
	118	// Display status bar\r
	119	if ((Status & DBGSTATUS_OUTDATEDFILE))\r
	120	{\r
	121	statusbar->setStyleSheet("background-color: lightyellow; font: bold");\r
	122	statusbar->showMessage(QString("Outdated source file"));\r
	123	}\r
	124	else\r
	125	{\r
	126	statusbar->setStyleSheet("background-color: tomato; font: bold");\r
	127	statusbar->showMessage(QString("Unavailable source file"));\r
	128	}\r
	129	#endif\r
9bf5c434 JPM	130	}\r
	131	else\r
	132	{\r
009df4d7	133	// Referenced filename does exist\r
9bf5c434	134	sprintf(string, "<font color='#00ff00'><b>%s</b></font><br>", PtrFullSource);\r
009df4d7 JPM	135	#if MD_LAYOUTFILE == 1\r
	136	// Display status bar\r
	137	statusbar->setStyleSheet("background-color: transparent; font: bold");\r
	138	statusbar->showMessage(QString(""));\r
	139	#endif\r
9bf5c434	140	}\r
aae93d86	141	nbr++;\r
9bf5c434	142	s += QString(string);\r
aae93d86	143	#endif\r
9bf5c434 JPM	144	}\r
9bf5c434 JPM	145	}\r
aae93d86	146	else\r
9bf5c434	147	{\r
aae93d86	148	// Display line number based on the program address\r
009df4d7	149	if ((NumLine = DBGManager_GetNumLineFromAdr(oldpc, DBG_NO_TAG)) && ((signed)NumLine > (signed)CurrentNumLine) && !Status)\r
9bf5c434	150	{\r
aae93d86 JPM	151	#if MD_LAYOUTFILE != 1\r
	152	if ((signed)CurrentNumLine < 0)\r
	153	{\r
	154	CurrentNumLine = NumLine - 1;\r
	155	}\r
	156	#endif\r
	157	sprintf(string, "\| <font color='#006400'>%5u</font> \| ", (unsigned int)++CurrentNumLine); // (CurrentNumLine = NumLine));\r
	158	}\r
	159	else\r
	160	{\r
	161	sprintf(string, "\| \| ");\r
9bf5c434	162	}\r
9bf5c434	163	s += QString(string);\r
aae93d86 JPM	164	\r
	165	// Display line source based on the program address\r
	166	if (((signed)CurrentNumLine > 0) && (LineSrc = DBGManager_GetLineSrcFromNumLineBaseAdr(oldpc, CurrentNumLine)) && (LineSrc != CurrentLineSrc))\r
9bf5c434	167	{\r
aae93d86 JPM	168	#if 0\r
	169	// add a color on the line text\r
	170	sprintf(string, "<font color='#006400'>%s</font><br>", (CurrentLineSrc = LineSrc));\r
9bf5c434	171	s += QString(string);\r
aae93d86 JPM	172	#else\r
	173	// add a color on the line text with HTML encoding\r
	174	s += QString("<font color='#006400'>");\r
	175	s += QString(QString((CurrentLineSrc = LineSrc)).toHtmlEscaped());\r
	176	s += QString("</font><br>");\r
	177	#endif\r
9bf5c434 JPM	178	nbr++;\r
9bf5c434 JPM	179	}\r
9bf5c434 JPM	180	else\r
9bf5c434 JPM	181	{\r
aae93d86 JPM	182	// Display symbol, or line source, based on the program address\r
aae93d86 JPM	183	if (!CurrentLineSrc && !Symbol && (Symbol = DBGManager_GetSymbolNameFromAdr(oldpc)))\r
9bf5c434	184	{\r
aae93d86 JPM	185	sprintf(string, "%s:<br>", Symbol);\r
	186	s += QString(string);\r
	187	nbr++;\r
9bf5c434	188	}\r
aae93d86	189	// Display the assembly line based on the current PC\r
9bf5c434 JPM	190	else\r
9bf5c434 JPM	191	{\r
aae93d86	192	pc += m68k_disassemble(buffer, (unsigned int)pc, 0, vjs.disasmopcodes);\r
9bf5c434	193	\r
aae93d86	194	if (m68kPC == oldpc)\r
9bf5c434	195	{\r
aae93d86 JPM	196	sprintf(string, "-> <u>%06X: %s</u><br>", (unsigned int)oldpc, buffer);\r
	197	m68kPCShow = true;\r
	198	m68KPCNbrDisasmLines = i;\r
9bf5c434 JPM	199	}\r
	200	else\r
	201	{\r
aae93d86 JPM	202	sprintf(string, " %06X: %s<br>", (unsigned int)oldpc, buffer);\r
aae93d86 JPM	203	}\r
9bf5c434	204	\r
aae93d86	205	buffer[0] = 0; // Clear string\r
9bf5c434	206	\r
aae93d86 JPM	207	for (j = 0; j < strlen(string); j++)\r
	208	{\r
	209	if (string[j] == ' ')\r
	210	{\r
	211	strcat(buffer, " ");\r
	212	adr = constant = false;\r
9bf5c434	213	}\r
aae93d86	214	else\r
9bf5c434	215	{\r
aae93d86	216	switch (string[j])\r
9bf5c434	217	{\r
aae93d86 JPM	218	case '#':\r
	219	constant = true;\r
	220	break;\r
	221	\r
	222	case '$':\r
	223	adr = true;\r
	224	break;\r
	225	\r
	226	case ',':\r
	227	constant = adr = equal = false;\r
	228	break;\r
	229	\r
	230	case '=':\r
	231	equal = true;\r
	232	break;\r
	233	}\r
9bf5c434	234	\r
aae93d86	235	if (!constant && adr && !equal)\r
9bf5c434	236	{\r
aae93d86 JPM	237	int l = 0;\r
	238	char *p;\r
	239	do\r
	240	{\r
	241	adresse[l++] = string[++j];\r
	242	} while ((string[(j + 1)] >= '0') && (string[(j + 1)] <= '9') \|\| (string[(j + 1)] >= 'A') && (string[(j + 1)] <= 'F'));\r
	243	adresse[l] = 0;\r
	244	\r
	245	if (Symbol = DBGManager_GetSymbolNameFromAdr(strtoul(adresse, &p, 16)))\r
	246	{\r
	247	strcat(buffer, Symbol);\r
	248	}\r
	249	else\r
	250	{\r
	251	strcat(buffer, "$");\r
	252	strcat(buffer, adresse);\r
	253	}\r
	254	\r
	255	adr = false;\r
9bf5c434 JPM	256	}\r
	257	else\r
	258	{\r
aae93d86 JPM	259	singleCharString[0] = string[j];\r
aae93d86 JPM	260	strcat(buffer, singleCharString);\r
9bf5c434	261	}\r
9bf5c434 JPM	262	}\r
9bf5c434 JPM	263	}\r
9bf5c434	264	\r
aae93d86 JPM	265	Symbol = NULL;\r
	266	s += QString(buffer);\r
	267	}\r
9bf5c434 JPM	268	}\r
	269	}\r
	270	}\r
	271	\r
	272	// Display generated text\r
	273	text->clear();\r
	274	if (m68kPCShow)\r
	275	{\r
	276	text->setText(s);\r
	277	}\r
	278	else\r
	279	{\r
	280	Use68KPCAddress();\r
	281	RefreshContents();\r
	282	}\r
	283	\r
	284	// Set the scrollbar position in accordance of the M68K PC pointer \r
	285	if (m68KPCNbrDisasmLines > (nbr / 2))\r
	286	{\r
	287	text->verticalScrollBar()->setValue(text->verticalScrollBar()->maximum());\r
	288	}\r
	289	else\r
	290	{\r
	291	text->verticalScrollBar()->setValue(text->verticalScrollBar()->minimum());\r
	292	}\r
	293	\r
	294	free(CurrentPtrFullSource);\r
	295	}\r
	296	\r
	297	\r
9bf5c434	298	// Set mem base PC address using the 68K pc current address\r
aae93d86	299	void m68KDasmWindow::Use68KPCAddress(void)\r
9bf5c434 JPM	300	{\r
	301	memBase = m68k_get_reg(NULL, M68K_REG_PC);\r
	302	}\r
	303	\r
	304	\r
	305	// Set mem base PC address\r
	306	void m68KDasmWindow::SetAddress(int address)\r
	307	{\r
	308	memBase = address;\r
9bf5c434	309	}\r