paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 10:16:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed find base type of constructor

Browse Source 
git-svn-id: trunk@18616 -
This commit is contained in:
mattias 2009-02-09 14:02:11 +00:00
parent b5e43b5d77
commit 90f305ab51
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -5381,7 +5381,8 @@ var
ProcNode:=ProcNode.Parent; ProcNode:=ProcNode.Parent;
ExprType.Context.Tool.BuildSubTreeForProcHead(ProcNode.FirstChild, ExprType.Context.Tool.BuildSubTreeForProcHead(ProcNode.FirstChild,
FuncResultNode); 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 // it is function or a constructor
// -> use the result type instead of the function // -> use the result type instead of the function
if IsIdentifierEndOfVariable then begin if IsIdentifierEndOfVariable then begin