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

Codetools: Prevent another error in identifier completion while defining a function. Issue #32972, patch by Włodzimierz Bień.

Browse Source
This commit is contained in:
Juha 2025-03-05 13:39:52 +02:00
parent 2232ccde07
commit 517925d781
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/identcompletiontool.pas
View File

@ -1508,13 +1508,15 @@ begin
exit; // there is a previous declaration without 'overload'
end;
end;
end else begin
if (CurrentIdentifierList.StartContext.Node.Parent<>nil) and
(CurrentIdentifierList.StartContext.Node.Parent.Parent=FoundContext.Node)
then begin // skip adding itself at function/procedure parameters definition
debugln(['TIdentCompletionTool.CollectAllIdentifiers ','skipped "',GetIdentifier(Ident),'"']);
exit;
end;
end;
if (FoundContext.Node.FirstChild<>nil) and
(CurrentIdentifierList.StartContext.Node.StartPos>=FoundContext.Node.FirstChild.StartPos) and
(CurrentIdentifierList.StartContext.Node.EndPos<=FoundContext.Node.FirstChild.EndPos)
then //inside parameters declaration
begin // skip adding itself at function/procedure parameters definition
debugln(['TIdentCompletionTool.CollectAllIdentifiers ','skipped "',GetIdentifier(Ident),'"']);
exit;
end;
end;