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

fixed a bug in check_*_expr()

Browse source
This commit is contained in:
erikb 1986-03-20 13:09:47 +00:00
parent 5c71bad6e1
commit 9f8f8c1a9c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -390,9 +390,9 @@ check_integral_type(expp, oper)
if (!is_integral_type(expr->ex_type)) { if (!is_integral_type(expr->ex_type)) {
expr_error(expr, "%s on non-integral type (%s)", expr_error(expr, "%s on non-integral type (%s)",
symbol2str(oper), symbol2str(expr->ex_type->tp_fund)); symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
}
erroneous2int(expp); erroneous2int(expp);
} }
}
int int
is_arith_type(tp) is_arith_type(tp)
@ -424,6 +424,6 @@ check_arith_type(expp, oper)
if (!is_arith_type(expr->ex_type)) { if (!is_arith_type(expr->ex_type)) {
expr_error(expr, "%s on non-arithmetical type (%s)", expr_error(expr, "%s on non-arithmetical type (%s)",
symbol2str(oper), symbol2str(expr->ex_type->tp_fund)); symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
}
erroneous2int(expp); erroneous2int(expp);
} }
}