From 8f3ab8527b0673cd48cc7c30e1b80a8e03969e5d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 24 Oct 2008 15:59:36 +0000
Subject: [PATCH] codetools: fixed setting EndPos for parameter types  array of
 identifier

git-svn-id: trunk@17129 -
---
 components/codetools/pascalparsertool.pas | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 9e900ede4c..cd17db1e0f 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1296,7 +1296,8 @@ begin
       if not UpAtomIs('OF') then
         if ExceptionOnError then
           RaiseStringExpectedButAtomFound('"of"')
-        else exit;
+        else
+          exit;
       if not Extract then ReadNextAtom else ExtractNextAtom(copying,Attr);
       if UpAtomIs('CONST') then begin
         if (phpCreateNodes in Attr) then begin
@@ -1353,10 +1354,14 @@ begin
         EndChildNode;
     end;
     if (phpCreateNodes in Attr) then begin
-      if IsFileType then
+      if IsFileType then begin
+        CurNode.EndPos:=CurPos.EndPos;
         EndChildNode;
-      if IsArrayType then
+      end;
+      if IsArrayType then begin
+        CurNode.EndPos:=CurPos.EndPos;
         EndChildNode;
+      end;
     end;
   end else begin
     if ExceptionOnError then