code for '*(ip = iarr) = x' was wrong

This commit is contained in:
eck 1990-04-04 15:08:45 +00:00
parent f0c0b894f2
commit ad7e46a324

View file

@ -42,7 +42,9 @@ ch3mon(oper, expp)
symbol2str((*expp)->ex_type->tp_fund)); symbol2str((*expp)->ex_type->tp_fund));
} else { } else {
expr = *expp; expr = *expp;
if (expr->ex_lvalue == 0 && expr->ex_class != String) if ((expr->ex_type->tp_fund == ARRAY
&& expr->ex_class != String)
|| expr->ex_type->tp_fund == FUNCTION)
/* dereference in administration only */ /* dereference in administration only */
expr->ex_type = expr->ex_type->tp_up; expr->ex_type = expr->ex_type->tp_up;
else /* runtime code */ else /* runtime code */