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

some very minor changes

Browse source
This commit is contained in:
dick 1986-09-28 20:33:15 +00:00
parent c3d4d40d1b
commit 66c247ba9c
3 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lang/cem/cemcom/arith.c
View file

@ -141,13 +141,16 @@ any2arith(expp, oper)
case LONG:
break;
case ENUM:
/* test the admissibility of the operator */
if ( is_test_op(oper) || oper == '=' || oper == PARCOMMA ||
oper == ',' || oper == ':' ||
( !options['R'] &&
(is_arith_op(oper) || is_asgn_op(oper))
)
)
{}
oper == ',' || oper == ':'
) {
/* allowed by K & R */
}
else
if (!options['R']) {
/* allowed by us */
}
else
expr_warning(*expp, "%s on enum", symbol2str(oper));
int2int(expp, int_type);

2
lang/cem/cemcom/declar.g
View file

@ -208,7 +208,7 @@ arrayer(arith *sizep;)
[
constant_expression(&expr)
{
array_subscript(expr);
check_array_subscript(expr);
*sizep = expr->VL_VALUE;
free_expression(expr);
}

4
lang/cem/cemcom/declarator.c
View file

@ -89,7 +89,7 @@ reject_params(dc)
}
}
array_subscript(expr)
check_array_subscript(expr)
register struct expr *expr;
{
arith size = expr->VL_VALUE;
@ -104,7 +104,7 @@ array_subscript(expr)
expr->VL_VALUE = (arith)-1;
}
else
if (size & ~max_unsigned) { /* absolute ridiculous */
if (size & ~max_unsigned) { /* absolutely ridiculous */
expr_error(expr, "overflow in array size");
expr->VL_VALUE = (arith)1;
}