paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +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: tkIf:
begin begin
CheckSemicolon; CheckSemicolon;
SrcPos:=Scanner.CurTokenPos;
NextToken; NextToken;
Left:=DoParseExpression(CurBlock); Left:=DoParseExpression(CurBlock);
UngetToken; UngetToken;
El:=TPasImplIfElse(CreateElement(TPasImplIfElse,'',CurBlock)); El:=TPasImplIfElse(CreateElement(TPasImplIfElse,'',CurBlock,SrcPos));
TPasImplIfElse(El).ConditionExpr:=Left; TPasImplIfElse(El).ConditionExpr:=Left;
Left.Parent:=El; Left.Parent:=El;
//WriteLn(i,'IF Condition="',Condition,'" Token=',CurTokenText); //WriteLn(i,'IF Condition="',Condition,'" Token=',CurTokenText);