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

codetools: simplified

Browse Source 
git-svn-id: trunk@49652 -
This commit is contained in:
mattias 2015-08-11 13:26:14 +00:00
parent d7a9c2946c
commit fbf5029f32
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/codetools/finddeclarationtool.pas
View File

@ -562,15 +562,23 @@ type
ECodeToolUnitNotFound = class(ECodeToolFileNotFound)
end;
{ THelpersListItem }
THelpersListItem = class(TObject)
ForExprType: TExpressionType;
HelperContext: TFindContext;
function CalcMemSize: PtrUInt;
end;
{ THelpersListRec }
THelpersListRec = record
ForExprType: TExpressionType;
HelperContext: TFindContext;
end;
{ THelpersList }
THelpersList = class
private
FTree: TAVLTree;
@ -4829,17 +4837,6 @@ end;
procedure TFindDeclarationTool.FindHelpersInContext(
StartNode: TCodeTreeNode; Helpers: THelpersList);
function SearchNextNode: TCodeTreeNode;
begin
Result := StartNode.PriorBrother;
if Assigned(Result) then
begin
while Assigned(Result.LastChild) do
Result := Result.LastChild;
end else
Result := StartNode.Parent;
end;
begin
while Assigned(StartNode) do
begin
@ -4852,7 +4849,7 @@ begin
ctnUsesSection:
FindHelpersInUsesSection(StartNode, Helpers);
end;
StartNode := SearchNextNode;
StartNode := StartNode.Prior;
end;
end;