paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 02:27:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: use fmShareDenyNone when writing js

Browse Source
This commit is contained in:
mattias 2020-12-19 11:46:30 +00:00
parent 8aed6ac7e4
commit f211913978
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/packages/pastojs/src/pas2jsfilecache.pp
View File

@ -1697,6 +1697,7 @@ var
{$IFDEF FPC}
i: Integer;
l: TMaxPrecInt;
FS: TFileStream;
{$ENDIF}
begin
if Assigned(OnWriteFile) then
@ -1726,7 +1727,12 @@ begin
end;
{$ELSE}
try
ms.SaveToFile(Filename);
FS:=TFileStream.Create (FileName,fmCreate or fmShareDenyNone);
Try
ms.SaveToStream(FS);
finally
FS.free;
end;
except
on E: Exception do begin
i:=GetLastOSError;