paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-28 20:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed case of range starting with negative identifier

Browse Source 
git-svn-id: trunk@20865 -
This commit is contained in:
michael 2012-04-14 14:37:12 +00:00
parent 9e5081cd90
commit f993b813b1
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1252,7 +1252,7 @@ var
const
PrefixSym = [tkPlus, tkMinus, tknot, tkAt]; // + - not @
BinaryOP = [tkMul, tkDivision, tkdiv, tkmod,
BinaryOP = [tkMul, tkDivision, tkdiv, tkmod, tkDotDot,
tkand, tkShl,tkShr, tkas, tkPower,
tkPlus, tkMinus, tkor, tkxor, tkSymmetricalDifference,
tkEqual, tkNotEqual, tkLessThan, tkLessEqualThan,
@ -1304,7 +1304,6 @@ begin
repeat
NotBinary:=True;
pcount:=0;
if not Assigned(InitExpr) then
begin
// the first part of the expression has been parsed externally.
@ -1348,9 +1347,17 @@ begin
if not Assigned(x) then Exit;
expstack.Add(x);
for i:=1 to pcount do begin
tempop:=PopOper;
expstack.Add( TUnaryExpr.Create(AParent, PopExp, TokenToExprOp(tempop) ));
x:=popexp;
if (tempop=tkMinus) and (X.Kind=pekRange) then
begin
TBinaryExpr(x).Left:=TUnaryExpr.Create(x, TBinaryExpr(X).left, eopSubtract);
expstack.Add(x);
end
else
expstack.Add( TUnaryExpr.Create(AParent, PopExp, TokenToExprOp(tempop) ));
end;
end else
@ -1358,7 +1365,6 @@ begin
expstack.Add(InitExpr);
InitExpr:=nil;
end;
if (CurToken in BinaryOP) then begin
// Adjusting order of the operations
NotBinary:=False;