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

more calls of expr_error() for better error reporting

Browse Source
This commit is contained in:
dick
1986-03-15 18:16:30 +00:00
parent c80f2c0817
commit 021d8d1fec
6 changed files with 76 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lang/cem/cemcom/ch7mon.c
View File

@@ -29,7 +29,8 @@ ch7mon(oper, expp)
array2pointer(expp);
if ((*expp)->ex_type->tp_fund != POINTER) {
if ((*expp)->ex_type != error_type)
error("* applied to non-pointer (%s)",
expr_error(*expp,
"* applied to non-pointer (%s)",
symbol2str((*expp)->ex_type->tp_fund));
(*expp)->ex_type = error_type;
}
@@ -57,13 +58,13 @@ ch7mon(oper, expp)
else
#ifndef NOBITFIELD
if ((*expp)->ex_type->tp_fund == FIELD) {
error("& applied to field variable");
expr_error(*expp, "& applied to field variable");
(*expp)->ex_type = error_type;
}
else
#endif NOBITFIELD
if (!(*expp)->ex_lvalue) {
error("& applied to non-lvalue");
expr_error(*expp, "& applied to non-lvalue");
(*expp)->ex_type = error_type;
}
else {
@@ -76,7 +77,8 @@ ch7mon(oper, expp)
be used as register anymore
*/
if (def->df_sc == REGISTER) {
error("& on register variable not allowed");
expr_error(*expp,
"& on register variable not allowed");
(*expp)->ex_type = error_type;
break; /* break case '&' */
}
@@ -91,7 +93,7 @@ ch7mon(oper, expp)
int fund = (*expp)->ex_type->tp_fund;
if (fund == FLOAT || fund == DOUBLE) {
error("~ not allowed on %s operands",
expr_error(*expp, "~ not allowed on %s operands",
symbol2str(fund));
erroneous2int(expp);
break;