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

Codetools: Fix compilation of IFDEFed code.

Browse Source
This commit is contained in:
Martin 2022-03-11 16:52:46 +01:00
parent de1c148c6e
commit 9007567a5e
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

@ -4426,8 +4426,8 @@ begin
if NewItem=nil then exit; if NewItem=nil then exit;
OldAVLNode:=FindItem(NewItem); OldAVLNode:=FindItem(NewItem);
{$IFDEF ShowHistory} {$IFDEF ShowHistory}
DebugLn('TIdentifierHistoryList.Add Count=',Count,' Found=',OldAVLNode<>nil, DebugLn(['TIdentifierHistoryList.Add Count=',Count,' Found=',OldAVLNode<>nil,
' ITEM: ',NewItem.AsString); ' ITEM: ',NewItem.AsString]);
{$ENDIF} {$ENDIF}
if OldAVLNode<>nil then begin if OldAVLNode<>nil then begin
// already in tree // already in tree
@ -4457,7 +4457,7 @@ begin
FItems.FreeAndDelete(FItems.FindHighest); FItems.FreeAndDelete(FItems.FindHighest);
FItems.Add(NewHistItem); FItems.Add(NewHistItem);
{$IFDEF ShowHistory} {$IFDEF ShowHistory}
DebugLn('TIdentifierHistoryList.Added Count=',Count); DebugLn(['TIdentifierHistoryList.Added Count=',Count]);
{$ENDIF} {$ENDIF}
end; end;