d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

cleaned up a little

Browse source
This commit is contained in:
ceriel 1989-11-09 14:06:35 +00:00
parent cfc1d926bf
commit 013a6f9cd6
1 changed files with 17 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lang/cem/cemcom.ansi/expr.c
View file

@ -393,7 +393,7 @@ new_oper(tp, e1, oper, e2)
}
chk_cst_expr(expp)
register struct expr **expp;
struct expr **expp;
{
/* The expression expr is checked for constancy.
@ -416,26 +416,31 @@ chk_cst_expr(expp)
Preprocessor #if) have to be dealt with locally
*/
register struct expr *expr = *expp;
register int fund = expr->ex_type->tp_fund;
int err = 0;
#ifdef DEBUG
print_expr("constant_expression", expr);
#endif DEBUG
if ( fund != CHAR && fund != SHORT && fund != INT
&& fund != ENUM && fund != LONG) {
expr_error(expr, "non-numerical constant expression");
err++;
} else if (!is_ld_cst(expr)) {
expr_error(expr, "expression is not constant");
err++;
switch(expr->ex_type->tp_fund) {
case CHAR:
case SHORT:
case INT:
case ENUM:
case LONG:
if (is_ld_cst(expr)) {
return;
}
expr_error(expr, "expression is not constant");
break;
default:
expr_error(expr, "non-numerical constant expression");
break;
}
if (err)
erroneous2int(expp);
}
init_expression(eppp, expr)
register struct expr ***eppp, *expr;
register struct expr ***eppp;
struct expr *expr;
{
/* The expression expr is added to the tree designated
indirectly by **eppp.