expression nodes now can have a flag EX_ERROR

This commit is contained in:
dick
1986-03-27 18:17:48 +00:00
parent f2764393be
commit ad1feaf35c
11 changed files with 50 additions and 38 deletions

View File

@@ -56,7 +56,10 @@ expr_error(expr, fmt, args)
struct expr *expr;
char *fmt;
{
if (expr->ex_flags & EX_ERROR)
return; /* to prevent proliferation */
_error(ERROR, expr, fmt, &args);
expr->ex_flags |= EX_ERROR;
}
/*VARARGS1*/
@@ -71,6 +74,8 @@ expr_warning(expr, fmt, args)
struct expr *expr;
char *fmt;
{
if (expr->ex_flags & EX_ERROR)
return; /* to prevent proliferation */
_error(WARNING, expr, fmt, &args);
}