godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed problem with 'if (array)'

Browse Source
This commit is contained in:
ceriel 1988-08-04 14:37:06 +00:00
parent 8b65bb004f
commit 45ecff07d3
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lang/cem/cemcom/arith.c
View File

@ -357,13 +357,20 @@ opnd2logical(expp, oper)
register struct expr **expp;
int oper;
{
int fund;
int fund = (*expp)->ex_type->tp_fund;
if ((*expp)->ex_type->tp_fund == FUNCTION)
function2pointer(*expp);
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) {