paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:40:20 +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.Capacity:=FItems.Count;
{$IFDEF CTDEBUG}
DebugLn('TIdentifierList.UpdateFilteredList Prefix="',Prefix,'"');
DebugLn(['TIdentifierList.UpdateFilteredList Prefix="',Prefix,'"']);
{$ENDIF}
AnAVLNode:=FItems.FindLowest;
while AnAVLNode<>nil do begin
@ -540,7 +540,7 @@ begin
and ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier)))
then begin
{$IFDEF ShowFilteredIdents}
DebugLn('::: FILTERED ITEM ',FFilteredList.Count,' ',CurItem.Identifier);
DebugLn(['::: FILTERED ITEM ',FFilteredList.Count,' ',CurItem.Identifier]);
{$ENDIF}
if length(Prefix)=length(CurItem.Identifier) then
// put exact matches at the beginning
@ -551,7 +551,7 @@ begin
AnAVLNode:=FItems.FindSuccessor(AnAVLNode);
end;
{$IFDEF CTDEBUG}
DebugLn('TIdentifierList.UpdateFilteredList ',dbgs(FFilteredList.Count),' of ',dbgs(FItems.Count));
DebugLn(['TIdentifierList.UpdateFilteredList ',dbgs(FFilteredList.Count),' of ',dbgs(FItems.Count)]);
{$ENDIF}
Exclude(FFlags,ilfFilteredListNeedsUpdate);
end;