silences clang warnings of type "place parentheses around the '&' expression". small fix in OPV to

make it
This commit is contained in:
Norayr Chilingarian 2014-04-10 17:51:05 +04:00
parent b25a810007
commit f066c42eb9
4 changed files with 3 additions and 1 deletions

BIN
showdef

Binary file not shown.

View file

@ -698,6 +698,7 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
expr(r, exprPrec)
END
ELSE
IF (subclass = and) OR ((form = Set) & ((subclass = times) OR (subclass = minus))) THEN OPM.Write(OpenParen); END; (* to silence clang warnings; -- noch *)
expr(l, exprPrec);
CASE subclass OF
times:
@ -724,7 +725,8 @@ MODULE OPV; (* J. Templ 16.2.95 / 3.7.96
| or:
OPM.WriteString(" || ")
END;
expr(r, exprPrec)
expr(r, exprPrec);
IF (subclass = and) OR ((form = Set) & ((subclass = times) OR (subclass = minus))) THEN OPM.Write(CloseParen) END; (* to silence clang warnings, -- noch*)
END
| Ncall:
IF (l^.obj # NIL) & (l^.obj^.mode = TProc) THEN

BIN
voc

Binary file not shown.

Binary file not shown.