mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-06 02:27:48 +02:00
fcl-passrc: use fmShareDenyNone when writing pas
This commit is contained in:
parent
f211913978
commit
7633a39273
@ -1659,7 +1659,7 @@ procedure WritePasFile(AElement: TPasElement; const AFilename: string);
|
||||
var
|
||||
Stream: TFileStream;
|
||||
begin
|
||||
Stream := TFileStream.Create(AFilename, fmCreate);
|
||||
Stream := TFileStream.Create(AFilename, fmCreate or fmShareDenyNone);
|
||||
try
|
||||
WritePasFile(AElement, Stream);
|
||||
finally
|
||||
|
Loading…
Reference in New Issue
Block a user