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

Delete existing files before overwriting them for Darwin OS to avoid codesign issues

Browse Source 
git-svn-id: trunk@49131 -
This commit is contained in:
pierre 2021-04-06 22:43:21 +00:00
parent 432cd5bdd3
commit 103599ede0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6196,6 +6196,9 @@ Var
FileStat: stat; FileStat: stat;
{$endif UNIX} {$endif UNIX}
begin begin
{ First delete file on Darwin OS to avoid codesign issues }
if (Defaults.SourceOS=Darwin) and FileExists(Dest) then
SysDeleteFile(Dest);
Log(vlInfo,SInfoCopyingFile,[Src,Dest]); Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone); FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);
Try Try