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

Codetools: Improvement for FindContext for hidden methods. Part of issue #18929, patch from Anton

Browse Source 
git-svn-id: trunk@41085 -
This commit is contained in:
juha 2013-05-09 08:56:19 +00:00
parent 0ce3f9f9f0
commit 712a0979f0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/identcompletiontool.pas
View File

@ -719,7 +719,13 @@ var
begin begin
FIdentSearchItem.Identifier:=Identifier; FIdentSearchItem.Identifier:=Identifier;
// ignore ParamList (for checking function overloading) // ignore ParamList (for checking function overloading)
AVLNode:=FIdentView.FindKey(FIdentSearchItem,@CompareIdentListSearchWithItemsWithoutParams); AVLNode:=FIdentView.FindLeftMostKey(FIdentSearchItem,
@CompareIdentListSearchWithItemsWithoutParams);
while (AVLNode<>nil)
and not (TIdentifierListItem(AVLNode.Data).Node.Desc in [ctnProcedure,ctnProcedureHead])
and (CompareIdentifiers(Identifier,PChar(TIdentifierListItem(AVLNode.Data).Identifier))=0)
do
AVLNode:=FIdentView.FindSuccessor(AVLNode);
if AVLNode<>nil then if AVLNode<>nil then
Result:=TIdentifierListItem(AVLNode.Data) Result:=TIdentifierListItem(AVLNode.Data)
else else