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

expression nodes now can have a flag EX_ERROR

Browse Source
This commit is contained in:
dick
1986-03-27 18:17:48 +00:00
parent 0968b74220
commit 1581b2ecd8
11 changed files with 50 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lang/cem/cemcom/ch7bin.c
View File

@@ -64,9 +64,8 @@ ch7bin(expp, oper, expr)
ch7mon('*', expp);
}
if ((*expp)->ex_type->tp_fund != FUNCTION) {
if ((*expp)->ex_type != error_type)
expr_error(*expp, "call of non-function (%s)",
symbol2str((*expp)->ex_type->tp_fund));
expr_error(*expp, "call of non-function (%s)",
symbol2str((*expp)->ex_type->tp_fund));
/* leave the expression; it may still serve */
free_expression(expr); /* there go the parameters */
}
@@ -202,7 +201,6 @@ ch7bin(expp, oper, expr)
) {
if ((*expp)->ex_type != expr->ex_type) {
expr_error(*expp, "illegal balance");
(*expp)->ex_type = error_type;
}
}
else {