paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 12:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* create all files without locking in order to (hopefully) prevent problems

Browse Source 
later on due to lingering locks

git-svn-id: trunk@24307 -
This commit is contained in:
Jonas Maebe 2013-04-23 11:37:51 +00:00
parent 432f5059fc
commit 307454e3a6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3354,7 +3354,7 @@ Var
F : TFileStream;
L : TStringList;
begin
F:=TFileStream.Create(AFileName,fmCreate);
F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);
L:=TStringList.Create;
try
SaveUnitConfigToStringList(L,ACPU,AOS);
@ -3744,7 +3744,7 @@ procedure TCustomDefaults.LoadFromFile(Const AFileName: String);
Var
F : TFileStream;
begin
F:=TFileStream.Create(AFileName,fmOpenRead);
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);
Try
LoadFromStream(F);
Finally
@ -3757,7 +3757,7 @@ procedure TCustomDefaults.SaveToFile(Const AFileName: String);
Var
F : TFileStream;
begin
F:=TFileStream.Create(AFileName,fmCreate);
F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);
Try
SaveToStream(F);
Finally
@ -4493,14 +4493,14 @@ Var
{$endif UNIX}
begin
Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
FIn:=TFileStream.Create(Src,fmopenRead);
FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);
Try
D:=IncludeTrailingPathDelimiter(Dest);
If DirectoryExists(D) then
S:=D+ExtractFileName(Src)
else
S:=Dest;
FOut:=TFileStream.Create(S,fmCreate);
FOut:=TFileStream.Create(S,fmCreate or fmShareDenyNone);
Try
Count:=Fout.CopyFrom(FIn,0);
If (Count<>Fin.Size) then