paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 04:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add support for '[' and ']' parenthesis in addition to '(' and ')' in

Browse Source 
rautils.TExprParse. They behave exactly like '(' and ')'. However, you cannot
  nest '(' with ']' and '[' with ')'. This is introduced in order to help
  implementing support for BP7 asm constants that are parsed like references,
  e.g. 'dd Rec.Str[5]' or 'dd 5[7]'.

git-svn-id: trunk@38849 -
This commit is contained in:
nickysn 2018-04-26 14:13:30 +00:00
parent c840c4d6a8
commit d1fc31de94
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/rautils.pas
View File

@ -149,6 +149,7 @@ type
{ '%' : modulo division }
{ nnn: longint numbers }
{ ( and ) parenthesis }
{ [ and ] another kind of parenthesis }
{**********************************************************************}
TExprParse = class
@ -377,7 +378,7 @@ Function TExprParse.Priority(_Operator : Char) : aint;
begin
Priority:=0;
Case _Operator OF
'(' :
'(','[' :
Priority:=0;
'|','^','~' : // the lowest priority: OR, XOR, NOT
Priority:=0;
@ -416,7 +417,7 @@ begin
RPNCalc(Token,false);
end
else
if Expr[I] in ['+', '-', '*', '/', '(', ')','^','&','|','%','~','<','>'] then
if Expr[I] in ['+', '-', '*', '/', '(', ')','[',']','^','&','|','%','~','<','>'] then
begin
if Token <> '' then
begin { Send last built number to calc. }
@ -425,6 +426,15 @@ begin
end;
Case Expr[I] OF
'[' : OpPush('[',false);
']' : begin
While (OpTop>0) and (OpStack[OpTop].ch <> '[') DO
Begin
OpPop(opr);
RPNCalc(opr.ch,opr.is_prefix);
end;
OpPop(opr); { Pop off and ignore the '[' }
end;
'(' : OpPush('(',false);
')' : begin
While (OpTop>0) and (OpStack[OpTop].ch <> '(') DO