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

Fixed checking of unary '*'

Browse source
This commit is contained in:
ceriel 1992-06-12 09:03:07 +00:00
parent b7b797674f
commit 09a80e9e13
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lang/cem/cemcom.ansi/ch3mon.c
View file

@ -45,21 +45,26 @@ ch3mon(oper, expp)
} else {
expr = *expp;
if (expr->ex_type->tp_up->tp_fund != FUNCTION &&
expr->ex_type->tp_up->tp_size <= 0) {
expr_error(expr, "incomplete type in expression");
}
if (is_ld_cst(expr))
/* dereference in administration only */
expr->ex_type = expr->ex_type->tp_up;
else /* runtime code */
*expp = new_oper(expr->ex_type->tp_up, NILEXPR,
'*', expr);
(*expp)->ex_lvalue = (
(*expp)->ex_type->tp_fund != ARRAY &&
(*expp)->ex_type->tp_fund != FUNCTION
expr = *expp;
expr->ex_lvalue = (
expr->ex_type->tp_fund != ARRAY &&
expr->ex_type->tp_fund != FUNCTION
);
if ((*expp)->ex_type->tp_typequal & TQ_CONST)
(*expp)->ex_flags |= EX_READONLY;
if ((*expp)->ex_type->tp_typequal & TQ_VOLATILE)
(*expp)->ex_flags |= EX_VOLATILE;
(*expp)->ex_flags &= ~EX_ILVALUE;
if (expr->ex_type->tp_typequal & TQ_CONST)
expr->ex_flags |= EX_READONLY;
if (expr->ex_type->tp_typequal & TQ_VOLATILE)
expr->ex_flags |= EX_VOLATILE;
expr->ex_flags &= ~EX_ILVALUE;
}
break;
case ADDRESSOF: