paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 20:00:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge trunk commits 49131 and 49202

Browse Source 
------------------------------------------------------------------------
r49131 | pierre | 2021-04-06 16:43:21 -0600 (Tue, 06 Apr 2021) | 1 line
Changed paths:
   M /trunk/packages/fpmkunit/src/fpmkunit.pp

 Delete existing files before overwriting them for Darwin OS to avoid codesign issues
------------------------------------------------------------------------
------------------------------------------------------------------------
r49202 | pierre | 2021-04-14 02:06:54 -0600 (Wed, 14 Apr 2021) | 1 line

Also delete file before copying if destination is a directory on Darwin OS
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@49204 -
This commit is contained in:
pierre 2021-04-14 16:01:11 +00:00
parent 946d9ec715
commit 0b5797e566
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fpmkunit/src/fpmkunit.pp
View File

@ -5831,6 +5831,18 @@ Var
FileStat: stat;
{$endif UNIX}
begin
{$ifdef DARWIN}
{ First delete file on Darwin OS to avoid codesign issues }
D:=IncludeTrailingPathDelimiter(Dest);
If DirectoryExists(D) then
begin
D:=D+ExtractFileName(Src);
if FileExists(D) then
SysDeleteFile(D);
end
else if FileExists(Dest) then
SysDeleteFile(Dest);
{$endif DARWIN}
Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);
Try