MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

bit shifting operators [ and ] for {.calc.}

Browse Source
This commit is contained in:
Massimo Melina 2020-05-13 11:03:13 +02:00
parent 6b2a852ca5
commit 3b01699f86
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utillib.pas
View File

@ -2525,7 +2525,7 @@ begin
ch:=s[i]; ch:=s[i];
v:=0; v:=0;
case ch of case ch of
'*','/','%': v:=5+ofsImp; '*','/','%','[',']': v:=5+ofsImp;
'+','-': v:=3+ofsImp; '+','-': v:=3+ofsImp;
'(': inc(ofsImp, PAR_VAL); '(': inc(ofsImp, PAR_VAL);
')': dec(ofsImp, PAR_VAL); ')': dec(ofsImp, PAR_VAL);
@ -2562,6 +2562,8 @@ begin
'%': '%':
if right <> 0 then result:=trunc(left) mod trunc(right) if right <> 0 then result:=trunc(left) mod trunc(right)
else raise Exception.create('division by zero'); else raise Exception.create('division by zero');
'[': result:=round(left) shl round(right);
']': result:=round(left) shr round(right);
else raise Exception.create('operator not supported: '+ch); else raise Exception.create('operator not supported: '+ch);
end; end;
// replace sub-expression with result // replace sub-expression with result