From 0869cb145f0cf7f4a35be1000eb38122271b6d2f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 16 Dec 2012 10:25:33 +0000
Subject: [PATCH] codetools: findbasetype: skip current context in type defs

git-svn-id: trunk@39558 -
---
 components/codetools/finddeclarationtool.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 199fded767..16ae195143 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -3543,7 +3543,8 @@ var
                       +(fdfGlobals*SubParams.Flags);
       SubParams.SetIdentifier(Self,@Src[IdentStart],nil);
       SubParams.ContextNode:=StartNode.Parent;
-      if (SubParams.ContextNode.Desc in AllIdentifierDefinitions) then begin
+      if (SubParams.ContextNode.Desc in (AllIdentifierDefinitions+AllPascalTypes))
+      then begin
         // pascal allows things like 'var a: a;' -> skip var definition
         Include(SubParams.Flags,fdfIgnoreCurContextNode);
       end;