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

revised check_ival() (among some other small changes)

Browse Source
This commit is contained in:
erikb
1986-04-03 11:33:32 +00:00
parent 52d743f223
commit 725d3fa6ea
4 changed files with 152 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -46,21 +46,23 @@ ch7mon(oper, expp)
}
break;
case '&':
if ((*expp)->ex_type->tp_fund == ARRAY)
if ((*expp)->ex_type->tp_fund == ARRAY) {
warning("& before array: ignored");
array2pointer(expp);
}
else
if ((*expp)->ex_type->tp_fund == FUNCTION)
if ((*expp)->ex_type->tp_fund == FUNCTION) {
warning("& before function: ignored");
function2pointer(expp);
}
else
#ifndef NOBITFIELD
if ((*expp)->ex_type->tp_fund == FIELD) {
if ((*expp)->ex_type->tp_fund == FIELD)
expr_error(*expp, "& applied to field variable");
}
else
#endif NOBITFIELD
if (!(*expp)->ex_lvalue) {
if (!(*expp)->ex_lvalue)
expr_error(*expp, "& applied to non-lvalue");
}
else {
/* assume that enums are already filtered out */
if ( (*expp)->ex_class == Value
@@ -89,11 +91,15 @@ ch7mon(oper, expp)
int fund = (*expp)->ex_type->tp_fund;
if (fund == FLOAT || fund == DOUBLE) {
expr_error(*expp, "~ not allowed on %s operands",
symbol2str(fund));
expr_error(
*expp,
"~ not allowed on %s operands",
symbol2str(fund)
);
erroneous2int(expp);
break;
}
/* FALL THROUGH */
}
case '-':
any2arith(expp, oper);
@@ -106,7 +112,7 @@ ch7mon(oper, expp)
switch_sign_fp(*expp);
else
*expp = new_oper((*expp)->ex_type,
NILEXPR, oper, *expp);
NILEXPR, oper, *expp);
break;
case '!':
if ((*expp)->ex_type->tp_fund == FUNCTION)
@@ -116,7 +122,7 @@ ch7mon(oper, expp)
opnd2test(expp, '!');
if (is_cp_cst(*expp)) {
(*expp)->VL_VALUE = !((*expp)->VL_VALUE);
(*expp)->ex_type = int_type;
(*expp)->ex_type = int_type; /* a cast ???(EB) */
}
else
*expp = new_oper(int_type, NILEXPR, oper, *expp);