From 28d39e927b8dfe452c60ee734366aa704d5bf0ff Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Thu, 4 Aug 1988 14:37:06 +0000
Subject: [PATCH] fixed problem with 'if (array)'

---
 lang/cem/cemcom/arith.c | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/lang/cem/cemcom/arith.c b/lang/cem/cemcom/arith.c
index e07a2dc37..ea9dc3207 100644
--- a/lang/cem/cemcom/arith.c
+++ b/lang/cem/cemcom/arith.c
@@ -357,13 +357,20 @@ opnd2logical(expp, oper)
 	register struct expr **expp;
 	int oper;
 {
-	int fund;
-
-	if ((*expp)->ex_type->tp_fund == FUNCTION)
-		function2pointer(*expp);
+	int fund = (*expp)->ex_type->tp_fund;
+
+	if (fund == FUNCTION || fund == ARRAY) {
+		expr_warning(*expp, "%s operand to %s",
+			symbol2str(fund),
+			symbol2str(oper));
+		if (fund == FUNCTION) {
+			function2pointer(*expp);
+		}
+		else	array2pointer(*expp);
+	}
 #ifndef NOBITFIELD
 	else
-	if ((*expp)->ex_type->tp_fund == FIELD)
+	if (fund == FIELD)
 		field2arith(expp);
 #endif NOBITFIELD
 	switch (fund = (*expp)->ex_type->tp_fund) {
-- 
2.34.1