From: eck <none@none>
Date: Wed, 4 Apr 1990 15:08:45 +0000 (+0000)
Subject: code for '*(ip = iarr) = x' was wrong
X-Git-Tag: release-5-5~1755
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ad7e46a32430c028e7b2165cd2f3eee46aaa158f;p=ack.git

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

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 */