paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 21:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: changed operator precedence level of is to same as and,or,xor

Browse Source 
git-svn-id: trunk@40517 -
This commit is contained in:
Mattias Gaertner 2018-12-10 14:53:16 +00:00
parent 193cbf1a3e
commit 7815ed4de1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pparser.pp
View File

@ -2385,11 +2385,13 @@ begin
// Result:=5;
tknot,tkAt,tkAtAt:
Result:=4;
tkMul, tkDivision, tkdiv, tkmod, tkand, tkShl,tkShr, tkas, tkPower :
tkMul, tkDivision, tkdiv, tkmod, tkand, tkShl,tkShr, tkas, tkPower, tkis:
// Note that "is" has same precedence as "and" in Delphi and fpc, even though
// some docs say otherwise. e.g. "Obj is TObj and aBool"
Result:=3;
tkPlus, tkMinus, tkor, tkxor:
Result:=2;
tkEqual, tkNotEqual, tkLessThan, tkLessEqualThan, tkGreaterThan, tkGreaterEqualThan, tkin, tkis:
tkEqual, tkNotEqual, tkLessThan, tkLessEqualThan, tkGreaterThan, tkGreaterEqualThan, tkin:
Result:=1;
else
Result:=0;