fixed unary & and indirect calls

1989-11-22 16:41:09 +00:00
parent 2e97e6e8b2
commit b5dfa18949
8 changed files with 29 additions and 6 deletions
--- a/lang/cem/cemcom.ansi/eval.c
+++ b/lang/cem/cemcom.ansi/eval.c
@@ -70,7 +70,9 @@ EVAL(expr, val, code, true_label, false_label)
 	int val, code;
 	label true_label, false_label;
 {
-	register int gencode = (code == TRUE && expr->ex_type->tp_size > 0);
+	register int gencode = (code == TRUE
+				&& (expr->ex_type->tp_size > 0
+				    || expr->ex_type->tp_fund == FUNCTION));

 	switch (expr->ex_class) {
 	case Value:	/* just a simple value	*/