From ad7e46a32430c028e7b2165cd2f3eee46aaa158f Mon Sep 17 00:00:00 2001 From: eck Date: Wed, 4 Apr 1990 15:08:45 +0000 Subject: [PATCH] code for '*(ip = iarr) = x' was wrong --- lang/cem/cemcom.ansi/ch3mon.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lang/cem/cemcom.ansi/ch3mon.c b/lang/cem/cemcom.ansi/ch3mon.c index b7794865d..fc82a4585 100644 --- a/lang/cem/cemcom.ansi/ch3mon.c +++ b/lang/cem/cemcom.ansi/ch3mon.c @@ -42,7 +42,9 @@ ch3mon(oper, expp) symbol2str((*expp)->ex_type->tp_fund)); } else { 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 */ expr->ex_type = expr->ex_type->tp_up; else /* runtime code */ -- 2.34.1