d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

make to fit on PDP-11 again

Browse source
This commit is contained in:
ceriel 1988-04-29 15:41:38 +00:00
parent 4d528bbc24
commit aadfe97a58
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lang/m2/comp/error.c
View file

@ -45,7 +45,6 @@
#endif #endif
int err_occurred; int err_occurred;
static int warn_class;
extern char *symbol2str(); extern char *symbol2str();
@ -111,7 +110,6 @@ warning(va_alist)
va_start(ap); va_start(ap);
{ {
warn_class = va_arg(ap, int);
_error(WARNING, NULLNODE, ap); _error(WARNING, NULLNODE, ap);
} }
va_end(ap); va_end(ap);
@ -126,7 +124,6 @@ node_warning(va_alist)
va_start(ap); va_start(ap);
{ {
t_node *nd = va_arg(ap, t_node *); t_node *nd = va_arg(ap, t_node *);
warn_class = va_arg(ap, int);
_error(WARNING, nd, ap); _error(WARNING, nd, ap);
} }
va_end(ap); va_end(ap);
@ -153,7 +150,6 @@ lexwarning(va_alist)
va_start(ap); va_start(ap);
{ {
warn_class = va_arg(ap, int);
_error(LEXWARNING, NULLNODE, ap); _error(LEXWARNING, NULLNODE, ap);
} }
va_end(ap); va_end(ap);
@ -194,7 +190,7 @@ crash(va_alist)
_error(class, node, ap) _error(class, node, ap)
int class; int class;
t_node *node; t_node *node;
va_list ap; register va_list ap;
{ {
/* _error attempts to limit the number of error messages /* _error attempts to limit the number of error messages
for a given line to MAXERR_LINE. for a given line to MAXERR_LINE.
@ -204,7 +200,8 @@ _error(class, node, ap)
static char * last_fn = 0; static char * last_fn = 0;
static int e_seen = 0; static int e_seen = 0;
register char *remark = 0; register char *remark = 0;
char *fmt = va_arg(ap, char *); int warn_class;
char *fmt;
/* Since name and number are gathered from different places /* Since name and number are gathered from different places
depending on the class, we first collect the relevant depending on the class, we first collect the relevant
@ -225,6 +222,7 @@ _error(class, node, ap)
switch (class) { switch (class) {
case WARNING: case WARNING:
case LEXWARNING: case LEXWARNING:
warn_class = va_arg(ap, int);
if (! (warn_class & warning_classes)) return; if (! (warn_class & warning_classes)) return;
switch(warn_class) { switch(warn_class) {
#ifndef STRICT_3RD_ED #ifndef STRICT_3RD_ED
@ -271,7 +269,8 @@ _error(class, node, ap)
ln = LineNumber; ln = LineNumber;
break; break;
} }
fmt = va_arg(ap, char *);
#ifdef DEBUG #ifdef DEBUG
if (class != VDEBUG) { if (class != VDEBUG) {
#endif #endif