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

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

@@ -28,11 +28,9 @@ ch7mon(oper, expp)
if ((*expp)->ex_type->tp_fund == ARRAY)
array2pointer(expp);
if ((*expp)->ex_type->tp_fund != POINTER) {
if ((*expp)->ex_type != error_type)
expr_error(*expp,
"* applied to non-pointer (%s)",
symbol2str((*expp)->ex_type->tp_fund));
(*expp)->ex_type = error_type;
expr_error(*expp,
"* applied to non-pointer (%s)",
symbol2str((*expp)->ex_type->tp_fund));
}
else {
expr = *expp;
@@ -59,13 +57,11 @@ ch7mon(oper, expp)
#ifndef NOBITFIELD
if ((*expp)->ex_type->tp_fund == FIELD) {
expr_error(*expp, "& applied to field variable");
(*expp)->ex_type = error_type;
}
else
#endif NOBITFIELD
if (!(*expp)->ex_lvalue) {
expr_error(*expp, "& applied to non-lvalue");
(*expp)->ex_type = error_type;
}
else {
/* assume that enums are already filtered out */
@@ -79,7 +75,6 @@ ch7mon(oper, expp)
if (def->df_sc == REGISTER) {
expr_error(*expp,
"& on register variable not allowed");
(*expp)->ex_type = error_type;
break; /* break case '&' */
}
def->df_register = REG_NONE;