| version 1.2, 1996/06/26 05:32:43 |
version 1.3, 2001/07/12 05:17:02 |
|
|
| * Eat all of the lines in the input file, attempting to categorize |
* Eat all of the lines in the input file, attempting to categorize |
| * them by their various flavors |
* them by their various flavors |
| */ |
*/ |
| |
void |
| eaterrors(r_errorc, r_errorv) |
eaterrors(r_errorc, r_errorv) |
| int *r_errorc; |
int *r_errorc; |
| Eptr **r_errorv; |
Eptr **r_errorv; |
| { |
{ |
| extern boolean piflag; |
|
| Errorclass errorclass = C_SYNC; |
Errorclass errorclass = C_SYNC; |
| char *line; |
char *line; |
| char *inbuffer; |
char *inbuffer; |
|
|
| /* |
/* |
| * create a new error entry, given a zero based array and count |
* create a new error entry, given a zero based array and count |
| */ |
*/ |
| |
void |
| erroradd(errorlength, errorv, errorclass, errorsubclass) |
erroradd(errorlength, errorv, errorclass, errorsubclass) |
| int errorlength; |
int errorlength; |
| char **errorv; |
char **errorv; |
|
|
| char *F77_error[3] = {"Error", "on", "line"}; |
char *F77_error[3] = {"Error", "on", "line"}; |
| char *F77_warning[3] = {"Warning", "on", "line"}; |
char *F77_warning[3] = {"Warning", "on", "line"}; |
| char *F77_no_ass[3] = {"Error.","No","assembly."}; |
char *F77_no_ass[3] = {"Error.","No","assembly."}; |
| |
int |
| f77() |
f77() |
| { |
{ |
| char **nwordv; |
char **nwordv; |
![[BACK]](/icons/back.gif){kind=icon}
Return to input.c CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [local] / src / usr.bin / error