paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 01:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: find declaration of default property without type

Browse Source 
git-svn-id: trunk@35789 -
This commit is contained in:
mattias 2012-03-07 06:26:37 +00:00
parent 66f552f023
commit 2b47f40c2f
1 changed files with 2 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/codetools/finddeclarationtool.pas
View File

@ -7242,36 +7242,8 @@ var
ExprType.Context.Tool.FindIdentifierInContext(Params);
ExprType.Context:=CreateFindContext(Params);
Params.Load(OldInput,true);
end;
// find base type of property
if ExprType.Context.Tool.ReadTilTypeOfProperty(ExprType.Context.Node)
then begin
// property has type
Params.Save(OldInput);
with ExprType.Context.Tool do
Params.SetIdentifier(ExprType.Context.Tool,
@Src[CurPos.StartPos],nil);
Params.Flags:=[fdfSearchInParentNodes,fdfExceptionOnNotFound]
+(fdfGlobals*Params.Flags);
Params.ContextNode:=ExprType.Context.Node.Parent;
if ExprType.Context.Tool.FindIdentifierInContext(Params) then begin
// only types allowed
if Params.NewNode.Desc=ctnTypeDefinition then begin
ExprType.Context:=CreateFindContext(Params);
end else if Params.NewNode.Desc=ctnGenericParameter then begin
if not Params.FindGenericParamType then
RaiseIdentInCurContextNotFound;
ExprType.Context.Tool:=Params.NewCodeTool;
ExprType.Context.Node:=Params.NewNode;
end else begin
// not a type
ExprType.Context.Tool.ReadTilTypeOfProperty(ExprType.Context.Node);
RaiseTypeIdentNotFound;
end;
end else begin
// predefined identifier
end;
Params.Load(OldInput,true);
ExprType.Context:=ExprType.Context.Tool.FindBaseTypeOfNode(Params,
ExprType.Context.Node);
end else
RaiseIdentInCurContextNotFound;
end;