various bug fixes & improvements

1990-04-06 15:37:16 +00:00
parent 6e685b9fcc
commit aa4de95f26
5 changed files with 18 additions and 11 deletions
--- a/lang/cem/cemcom.ansi/ch3mon.c
+++ b/lang/cem/cemcom.ansi/ch3mon.c
@@ -42,9 +42,8 @@ ch3mon(oper, expp)
 				    symbol2str((*expp)->ex_type->tp_fund));
 		} else {
 			expr = *expp;
-			if ((expr->ex_type->tp_fund == ARRAY
-				&& expr->ex_class != String)
-			    || expr->ex_type->tp_fund == FUNCTION)
+
+			if (is_ld_cst(expr))
 				/* dereference in administration only */
 				expr->ex_type = expr->ex_type->tp_up;
 			else	/* runtime code */