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

codetools: fix few debugln

Browse Source 
git-svn-id: trunk@18112 -
This commit is contained in:
paul 2009-01-04 19:20:14 +00:00
parent 84ba6d22cd
commit e51930e4d4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/identcompletiontool.pas
View File

@ -531,7 +531,7 @@ begin
FFilteredList.Count:=0; FFilteredList.Count:=0;
FFilteredList.Capacity:=FItems.Count; FFilteredList.Capacity:=FItems.Count;
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('TIdentifierList.UpdateFilteredList Prefix="',Prefix,'"'); DebugLn(['TIdentifierList.UpdateFilteredList Prefix="',Prefix,'"']);
{$ENDIF} {$ENDIF}
AnAVLNode:=FItems.FindLowest; AnAVLNode:=FItems.FindLowest;
while AnAVLNode<>nil do begin while AnAVLNode<>nil do begin
@ -540,7 +540,7 @@ begin
and ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier))) and ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier)))
then begin then begin
{$IFDEF ShowFilteredIdents} {$IFDEF ShowFilteredIdents}
DebugLn('::: FILTERED ITEM ',FFilteredList.Count,' ',CurItem.Identifier); DebugLn(['::: FILTERED ITEM ',FFilteredList.Count,' ',CurItem.Identifier]);
{$ENDIF} {$ENDIF}
if length(Prefix)=length(CurItem.Identifier) then if length(Prefix)=length(CurItem.Identifier) then
// put exact matches at the beginning // put exact matches at the beginning
@ -551,7 +551,7 @@ begin
AnAVLNode:=FItems.FindSuccessor(AnAVLNode); AnAVLNode:=FItems.FindSuccessor(AnAVLNode);
end; end;
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('TIdentifierList.UpdateFilteredList ',dbgs(FFilteredList.Count),' of ',dbgs(FItems.Count)); DebugLn(['TIdentifierList.UpdateFilteredList ',dbgs(FFilteredList.Count),' of ',dbgs(FItems.Count)]);
{$ENDIF} {$ENDIF}
Exclude(FFlags,ilfFilteredListNeedsUpdate); Exclude(FFlags,ilfFilteredListNeedsUpdate);
end; end;