mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: FPC 3.2 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2020-06-27 12:30:17 +00:00
commit 9e3ce66f6f
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
fpmake.pp
View file

@ -228,15 +228,15 @@ const
OutputPath = 'units' + PathDelim;
var
I: Integer;
Info : TSearchRec;
AInfo : TSearchRec;
begin
// Clean output directories
if FindFirst(OutputPath + AllFilesMask, faAnyFile - faHidden, Info) = 0 then
if FindFirst(OutputPath + AllFilesMask, faAnyFile - faHidden, AInfo) = 0 then
repeat
if ((Info.Attr and faDirectory) = faDirectory) and (Info.Name <> '.') and (Info.Name <> '..') then
CleanDirectory(OutputPath + Info.Name);
until FindNext(Info) <> 0;
FindClose(Info);
if ((AInfo.Attr and faDirectory) = faDirectory) and (AInfo.Name <> '.') and (AInfo.Name <> '..') then
CleanDirectory(OutputPath + AInfo.Name);
until FindNext(AInfo) <> 0;
FindClose(AInfo);
TDCBuildEngine(BuildEngine).SysDeleteTree('tools' + PathDelim + 'lib');
// Clean files
for I:= Low(DeleteFiles) to High(DeleteFiles) do