fixed problem with 'if (array)'

diff --git a/lang/cem/cemcom/arith.c b/lang/cem/cemcom/arith.c
index e07a2dc..ea9dc32 100644 (file)
--- 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) {