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

fcl-passrc: parser: TPasImplIfElse now uses if token start instead of condition end position

Browse Source 
git-svn-id: trunk@37238 -
This commit is contained in:
Mattias Gaertner 2017-09-17 20:13:09 +00:00
parent 544d44827f
commit eccb5422e0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4825,10 +4825,11 @@ begin
tkIf:
begin
CheckSemicolon;
SrcPos:=Scanner.CurTokenPos;
NextToken;
Left:=DoParseExpression(CurBlock);
UngetToken;
El:=TPasImplIfElse(CreateElement(TPasImplIfElse,'',CurBlock));
El:=TPasImplIfElse(CreateElement(TPasImplIfElse,'',CurBlock,SrcPos));
TPasImplIfElse(El).ConditionExpr:=Left;
Left.Parent:=El;
//WriteLn(i,'IF Condition="',Condition,'" Token=',CurTokenText);