From eccb5422e03ad4a37bef50066b90f179d9255e44 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Sun, 17 Sep 2017 20:13:09 +0000
Subject: [PATCH] fcl-passrc: parser: TPasImplIfElse now uses if token start
 instead of condition end position

git-svn-id: trunk@37238 -
---
 packages/fcl-passrc/src/pparser.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 7590aa88a8..4db3e9658b 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -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);