Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

Allow static evaluation of ? : expressions with long long operands.

Browse Source
This commit is contained in:
Stephen Heumann 2021-02-19 23:46:57 -06:00
parent 75c7cd95d3
commit 58f2ebddec
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Expression.pas
View File

@ -1101,13 +1101,14 @@ var
op^.right := Pop; op^.right := Pop;
op^.middle := Pop; op^.middle := Pop;
op^.left := Pop; op^.left := Pop;
if op^.right^.token.kind in if op^.right^.token.kind in [intconst,uintconst,
[intconst,uintconst,longconst,ulongconst] then longconst,ulongconst,longlongconst,ulonglongconst] then
if op^.left^.token.kind in if op^.left^.token.kind in [intconst,uintconst,
[intconst,uintconst,longconst,ulongconst] then longconst,ulongconst,longlongconst,ulonglongconst] then
if op^.middle^.token.kind in if op^.middle^.token.kind in [intconst,uintconst,
[intconst,uintconst,longconst,ulongconst] then begin longconst,ulongconst,longlongconst,ulonglongconst] then begin
if IntVal(op^.left^.token) <> 0 then GetLongLongVal(llop1, op^.left^.token);
if (llop1.lo <> 0) or (llop1.hi <> 0) then
op^.token := op^.middle^.token op^.token := op^.middle^.token
else else
op^.token := op^.right^.token; op^.token := op^.right^.token;