paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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; F : TFileStream;
L : TStringList; L : TStringList;
begin begin
F:=TFileStream.Create(AFileName,fmCreate); F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);
L:=TStringList.Create; L:=TStringList.Create;
try try
SaveUnitConfigToStringList(L,ACPU,AOS); SaveUnitConfigToStringList(L,ACPU,AOS);
@ -3744,7 +3744,7 @@ procedure TCustomDefaults.LoadFromFile(Const AFileName: String);
Var Var
F : TFileStream; F : TFileStream;
begin begin
F:=TFileStream.Create(AFileName,fmOpenRead); F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);
Try Try
LoadFromStream(F); LoadFromStream(F);
Finally Finally
@ -3757,7 +3757,7 @@ procedure TCustomDefaults.SaveToFile(Const AFileName: String);
Var Var
F : TFileStream; F : TFileStream;
begin begin
F:=TFileStream.Create(AFileName,fmCreate); F:=TFileStream.Create(AFileName,fmCreate or fmShareDenyNone);
Try Try
SaveToStream(F); SaveToStream(F);
Finally Finally
@ -4493,14 +4493,14 @@ Var
{$endif UNIX} {$endif UNIX}
begin begin
Log(vlInfo,SInfoCopyingFile,[Src,Dest]); Log(vlInfo,SInfoCopyingFile,[Src,Dest]);
FIn:=TFileStream.Create(Src,fmopenRead); FIn:=TFileStream.Create(Src,fmopenRead or fmShareDenyNone);
Try Try
D:=IncludeTrailingPathDelimiter(Dest); D:=IncludeTrailingPathDelimiter(Dest);
If DirectoryExists(D) then If DirectoryExists(D) then
S:=D+ExtractFileName(Src) S:=D+ExtractFileName(Src)
else else
S:=Dest; S:=Dest;
FOut:=TFileStream.Create(S,fmCreate); FOut:=TFileStream.Create(S,fmCreate or fmShareDenyNone);
Try Try
Count:=Fout.CopyFrom(FIn,0); Count:=Fout.CopyFrom(FIn,0);
If (Count<>Fin.Size) then If (Count<>Fin.Size) then