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

better (more restrained) error reporting

Browse Source
This commit is contained in:
dick
1989-10-30 16:19:35 +00:00
parent 2fb6605800
commit a817264e90
12 changed files with 46 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -77,15 +77,19 @@ ch7bin(expp, oper, expr)
#endif NOROPTION
ch7mon('*', expp);
}
if ((*expp)->ex_type->tp_fund != FUNCTION) {
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 */
}
else
switch ((*expp)->ex_type->tp_fund) {
case FUNCTION:
*expp = new_oper((*expp)->ex_type->tp_up,
*expp, '(', expr);
break;
default: /* uncallable */
expr_error(*expp, "calling an object of type %s",
symbol2str((*expp)->ex_type->tp_fund));
case ERRONEOUS: /* uncallable but no message */
/* leave the expression; it may still serve */
free_expression(expr); /* there go the parameters */
break;
}
(*expp)->ex_flags |= EX_SIDEEFFECTS;
break;