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

implemented find declaration for Self in nested procs

Browse Source 
git-svn-id: trunk@4984 -
This commit is contained in:
mattias 2003-12-28 12:22:55 +00:00
parent 079fcb7fbb
commit ec76009548
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -3953,8 +3953,13 @@ var
and (ExprType.Context.Node.Desc in AllPascalStatements) then begin
if CompareSrcIdentifier(CurAtom.StartPos,'SELF') then begin
// SELF in a method is the object itself
// -> check if in a proc
ProcNode:=ExprType.Context.Node.GetNodeOfType(ctnProcedure);
// -> check if in a method or nested proc of a method
ProcNode:=ExprType.Context.Node;
while (ProcNode<>nil) do begin
if (ProcNode.Desc=ctnProcedure) and NodeIsMethodBody(ProcNode) then
break;
ProcNode:=ProcNode.Parent;
end;
if (ProcNode<>nil)
and ExprType.Context.Tool.FindClassOfMethod(ProcNode,Params,
not IsIdentifierEndOfVariable)