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

MG: free unittree and fileinfos

Browse Source 
git-svn-id: trunk@409 -
This commit is contained in:
lazarus 2001-11-12 12:07:33 +00:00
parent ac26d5531f
commit 36bdfe3664
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/definetemplates.pas
View File

@ -1401,6 +1401,7 @@ var DefTempl, MainDir,
end; end;
until FindNext(FileInfo)<>0; until FindNext(FileInfo)<>0;
end; end;
FindClose(FileInfo);
end; end;
begin begin
@ -1451,6 +1452,7 @@ var DefTempl, MainDir,
AddFPCSourceLinkForUnit(UnitName); AddFPCSourceLinkForUnit(UnitName);
until FindNext(FileInfo)<>0; until FindNext(FileInfo)<>0;
end; end;
FindClose(FileInfo);
end; end;
PathStart:=PathEnd; PathStart:=PathEnd;
end; end;
@ -1509,6 +1511,11 @@ begin
PackagesDir:=TDefineTemplate.Create('Packages','Package directories','', PackagesDir:=TDefineTemplate.Create('Packages','Package directories','',
'packages',da_Directory); 'packages',da_Directory);
MainDir.AddChild(PackagesDir); MainDir.AddChild(PackagesDir);
if UnitTree<>nil then begin
UnitTree.FreeAndClear;
UnitTree.Free;
end;
end; end;
function TDefinePool.CreateLazarusSrcTemplate( function TDefinePool.CreateLazarusSrcTemplate(