paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 21:41:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation under 1.0.7

Browse Source 
git-svn-id: trunk@3787 -
This commit is contained in:
mattias 2003-01-04 17:39:06 +00:00
parent 78f7985d2e
commit f80cd88791
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/identcompletiontool.pas
View File

@ -356,9 +356,11 @@ end;
procedure TIdentifierList.Clear;
var
i: Integer;
p: Pointer;
begin
for i:=0 to FCreatedIdentifiers.Count-1 do begin
FreeMem(FCreatedIdentifiers[i]);
p:=FCreatedIdentifiers[i];
FreeMem(p);
end;
FCreatedIdentifiers.Clear;
FItems.FreeAndClear;