From 90f305ab5194d5ef475dee455ffdf83fa9abe3aa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 9 Feb 2009 14:02:11 +0000
Subject: [PATCH] codetools: fixed find base type of constructor

git-svn-id: trunk@18616 -
---
 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 0dfa9ab8c2..4b238299e3 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -5381,7 +5381,8 @@ var
           ProcNode:=ProcNode.Parent;
         ExprType.Context.Tool.BuildSubTreeForProcHead(ProcNode.FirstChild,
                                                       FuncResultNode);
-        if (FuncResultNode<>nil) or NodeIsConstructor(ProcNode) then begin
+        if (FuncResultNode<>nil) or ExprType.Context.Tool.NodeIsConstructor(ProcNode)
+        then begin
           // it is function or a constructor
           // -> use the result type instead of the function
           if IsIdentifierEndOfVariable then begin