freem/src/merr.c - diff

Return to merr.c CVS log

Up to [Coherent Logic Development] / freem / src

version 1.5, 2025/04/13 04:22:43	version 1.6, 2025/04/30 17:19:16
Line 24	Line 24
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.	* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*	*
* $Log$	* $Log$
	* Revision 1.6 2025/04/30 17:19:16 snw
	* Improve backtraces in debugger
	*
* Revision 1.5 2025/04/13 04:22:43 snw	* Revision 1.5 2025/04/13 04:22:43 snw
* Fix snprintf calls	* Fix snprintf calls
*	*
Line 209 err_lut errtab[] = {	Line 212 err_lut errtab[] = {

inline int merr_raise(int num)	inline int merr_raise(int num)
{	{
	char placebuf[256];
	char lref[256];

	if (num != OK) {
	lasterr[nstx] = ierr;
	}

if (merr_in_break ()) {	if (merr_in_break ()) {
ierr = num - CTRLB;	ierr = num - CTRLB;
Line 225 inline int merr_raise(int num)	Line 234 inline int merr_raise(int num)

if (direct_mode == 1 && nstx == 0) {	if (direct_mode == 1 && nstx == 0) {
stcpy (merr_stack[nstx].PLACE, "@\201\0");	stcpy (merr_stack[nstx].PLACE, "@\201\0");
	stcpy (merr_stack[nstx].MCODE, " \201\0");
}	}
else {	else {
if (!rtn_get_offset (merr_stack[nstx].PLACE)) {	getraddress (placebuf, nstx);
stcpy (merr_stack[nstx].PLACE, "???\201");	stcpy (merr_stack[nstx].PLACE, &(placebuf[3]));
	/*
	stcpy (lref, merr_stack[nstx].PLACE);
	stcnv_m2c (lref);

	if (m_text (lref, merr_stack[nstx].MCODE) == NULL) {
	sprintf (merr_stack[nstx].MCODE, "???\201");
}	}
	*/
}	}

if (nstx > merr_topstk) merr_topstk = nstx;	if (nstx > merr_topstk) merr_topstk = nstx;
}	}

return ierr;	return ierr;
}	}