paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 04:58:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: expreval: and, or short eval set 0,1

Browse Source 
git-svn-id: trunk@22799 -
This commit is contained in:
mattias 2009-11-26 17:24:13 +00:00
parent 47931548ff
commit 4d7aa9e2ea
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/expreval.pas
View File

@ -1606,7 +1606,10 @@ begin
'A':
if CompareIdentifiers(AtomStart,'AND')=0 then begin
OperatorLvl:=1;
if not OperandIsTrue(Operand) then break;
if not OperandIsTrue(Operand) then begin
SetOperandValueChar(Operand,'0');
break;
end;
end;
'D': if CompareIdentifiers(AtomStart,'DIV')=0 then OperatorLvl:=1;
'M': if CompareIdentifiers(AtomStart,'MOD')=0 then OperatorLvl:=1;
@ -1623,7 +1626,10 @@ begin
'R':
if p-AtomStart=2 then begin
OperatorLvl:=2;
if OperandIsTrue(Operand) then break;
if OperandIsTrue(Operand) then begin
SetOperandValueChar(Operand,'1');
break;
end;
end;
end;
'X': if CompareIdentifiers(AtomStart,'XOR')=0 then OperatorLvl:=2;