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

codetools: less hints

Browse Source 
git-svn-id: trunk@49617 -
This commit is contained in:
mattias 2015-08-08 08:37:38 +00:00
parent d5cc6e7c0e
commit 46cd19490b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/identcompletiontool.pas
View File

@ -48,7 +48,7 @@ uses
{$IFDEF MEM_CHECK} {$IFDEF MEM_CHECK}
MemCheck, MemCheck,
{$ENDIF} {$ENDIF}
Classes, SysUtils, typinfo, FileProcs, LazFileUtils, LazUtilities, Classes, SysUtils, typinfo, FileProcs, LazFileUtils,
CodeTree, CodeAtom, CodeCache, CustomCodeTool, CodeToolsStrConsts, CodeTree, CodeAtom, CodeCache, CustomCodeTool, CodeToolsStrConsts,
KeywordFuncLists, BasicCodeTools, LinkScanner, AvgLvlTree, AVL_Tree, KeywordFuncLists, BasicCodeTools, LinkScanner, AvgLvlTree, AVL_Tree,
SourceChanger, FindDeclarationTool, PascalReaderTool, PascalParserTool, SourceChanger, FindDeclarationTool, PascalReaderTool, PascalParserTool,
@ -869,7 +869,7 @@ begin
if FCreatedIdentifiers<>nil then begin if FCreatedIdentifiers<>nil then begin
inc(Result,MemSizeFPList(FCreatedIdentifiers)); inc(Result,MemSizeFPList(FCreatedIdentifiers));
for i:=0 to FCreatedIdentifiers.Count-1 do for i:=0 to FCreatedIdentifiers.Count-1 do
inc(Result,GetIdentLen(PChar(FCreatedIdentifiers[i]))); {%H-}inc(Result,GetIdentLen(PChar(FCreatedIdentifiers[i])));
end; end;
if FFilteredList<>nil then begin if FFilteredList<>nil then begin
inc(Result,MemSizeFPList(FFilteredList)); inc(Result,MemSizeFPList(FFilteredList));
@ -880,7 +880,7 @@ begin
inc(Result,FHistory.CalcMemSize); inc(Result,FHistory.CalcMemSize);
end; end;
if FItems<>nil then begin if FItems<>nil then begin
inc(Result,FItems.Count*SizeOf(TAvgLvlTreeNode)); {%H-}inc(Result,FItems.Count*SizeOf(TAvgLvlTreeNode));
AvgNode:=FItems.FindLowest; AvgNode:=FItems.FindLowest;
while AvgNode<>nil do begin while AvgNode<>nil do begin
li:=TIdentifierListItem(AvgNode.Data); li:=TIdentifierListItem(AvgNode.Data);
@ -889,7 +889,7 @@ begin
end; end;
end; end;
if FIdentView<>nil then begin if FIdentView<>nil then begin
inc(Result,FIdentView.Count*SizeOf(TAVLTreeNode)); {%H-}inc(Result,FIdentView.Count*SizeOf(TAVLTreeNode));
Node:=FIdentView.FindLowest; Node:=FIdentView.FindLowest;
while Node<>nil do begin while Node<>nil do begin
hli:=TIdentHistListItem(Node.Data); hli:=TIdentHistListItem(Node.Data);
@ -3965,7 +3965,7 @@ var
begin begin
Result:=PtrUInt(InstanceSize); Result:=PtrUInt(InstanceSize);
if FItems<>nil then begin if FItems<>nil then begin
inc(Result,FItems.Count*SizeOf(TAVLTreeNode)); {%H-}inc(Result,FItems.Count*SizeOf(TAVLTreeNode));
Node:=FItems.FindLowest; Node:=FItems.FindLowest;
while Node<>nil do begin while Node<>nil do begin
Item:=TIdentHistListItem(Node.Data); Item:=TIdentHistListItem(Node.Data);