#include "error.h"
#include <stdarg.h>
-#include <token.h>
-#include "listing.h"
#include "token.h"
+#include "listing.h"
+char * interror_msg[] = {
+ "Unknown internal error", // Error not referenced, should not be displayed
+ "Unknown internal error", // Error not referenced, should not be displayed
+ "Bad MULTX entry in chrtab", // Error #2
+ "Unknown internal error", // Error not referenced, should not be displayed
+ "Bad fixup type", // Error #4
+ "Bad operator in expression stream", // Error #5
+ "Can't find generated code in section", // Error #6
+ "Fixup (loc) out of range", // Error #7
+ "Absolute top filename found", // Error #8
+ "The RISC expression evaluator blew up, sorry" // Error #9
+};
// Exported variables
int errcnt; // Error count
filename = fr->frec_name;
- sprintf(buf1, "%s %d: Error: %s\n", filename, cur_inobj->inobj.imacro->im_macro->lineList->lineno, buf);
+ sprintf(buf1, "%s %d: Error: %s\nCalled from: %s %d\n", filename, cur_inobj->inobj.imacro->im_macro->lineList->lineno, buf,
+ curfname, curlineno);
}
break;
case SRC_IREPT:
char buf[EBUFSIZ];
err_setup();
- sprintf(buf, "%s %d: Internal error #%d\n", curfname, curlineno, n);
+ sprintf(buf, "%s %d: Internal error #%d: %s\n", curfname, curlineno, n, interror_msg[n]);
if (listing > 0)
ship_ln(buf);