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

Minix again

Browse Source
This commit is contained in:
eck
1989-10-20 13:06:10 +00:00
parent 01f77a03af
commit b6a7d4fa0f
6 changed files with 37 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lang/cem/cemcom.ansi/ch3bin.c
View File

@@ -206,7 +206,7 @@ ch3bin(expp, oper, expr)
*expp = intexpr((arith)((oper == AND) ? 0 : 1),
INT);
}
(*expp)->ex_flags |= ex->ex_flags;
(*expp)->ex_flags |= ex->ex_flags | EX_ILVALUE;
free_expression(ex);
}
else
@@ -217,7 +217,7 @@ ch3bin(expp, oper, expr)
and ((oper == AND) || (oper == OR))
*/
if ((oper == AND) == (expr->VL_VALUE != (arith)0)) {
(*expp)->ex_flags |= expr->ex_flags;
(*expp)->ex_flags |= expr->ex_flags | EX_ILVALUE;
free_expression(expr);
}
else {
@@ -297,7 +297,8 @@ pntminuspnt(expp, oper, expr)
ch3cast(expp, CAST, pa_type); /* ptr-ptr: result has pa_type */
ch3bin(expp, '/',
intexpr(size_of_type(up_type, "object"), pa_type->tp_fund));
ch3cast(expp, CAST, int_type); /* result will be an integer expr */
ch3cast(expp, CAST, pa_type); /* result will be an integgral expr */
/* cast necessary ??? */
}
mk_binop(expp, oper, expr, commutative)