godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

newer version, safety commit

Browse Source
This commit is contained in:
ceriel
1986-04-03 17:41:26 +00:00
parent 4c75213caa
commit c8453bb3f7
14 changed files with 175 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/error.c
View File

@@ -12,6 +12,7 @@ static char *RcsId = "$Header$";
#include "input.h"
#include "f_info.h"
#include "LLlex.h"
#include "main.h"
#define MAXERR_LINE 5 /* Number of error messages on one line ... */
#define ERROUT STDERR
@@ -32,7 +33,6 @@ static char *RcsId = "$Header$";
int err_occurred;
extern char *symbol2str();
extern char options[];
/* There are three general error-message functions:
lexerror() lexical and pre-processor error messages
@@ -198,10 +198,10 @@ _error(class, expr, fmt, argv)
}
#endif DEBUG
if (FileName) fprintf(ERROUT, "\"%s\", line %u: ", FileName, ln);
if (FileName) fprint(ERROUT, "\"%s\", line %u: ", FileName, ln);
if (remark) fprintf(ERROUT, "%s ", remark);
if (remark) fprint(ERROUT, "%s ", remark);
doprnt(ERROUT, fmt, argv); /* contents of error */
fprintf(ERROUT, "\n");
fprint(ERROUT, "\n");
}