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

codetools: fixed compile

Browse Source 
git-svn-id: trunk@57026 -
This commit is contained in:
mattias 2018-01-09 18:19:43 +00:00
parent 391b8ffa36
commit 3581e9d7e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -631,7 +631,7 @@ begin
cPriorityCount := 0; cPriorityCount := 0;
while AnAVLNode<>nil do begin while AnAVLNode<>nil do begin
CurItem:=TIdentifierListItem(AnAVLNode.Data); CurItem:=TIdentifierListItem(AnAVLNode.Data);
if not CurItem.Identifier.IsEmpty then if CurItem.Identifier<>'' then
begin begin
if ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier))) if ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier)))
then begin then begin