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

Open fp.dsk for load in Read access only mode

Browse Source
This commit is contained in:
Margers 2024-11-11 07:37:59 +00:00 committed by Michael Van Canneyt
parent 530f08d9d3
commit 8b10637036
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/ide/wresourc.pas
View File

@ -793,7 +793,7 @@ end;
constructor TResourceFile.LoadFile(AFileName: string); constructor TResourceFile.LoadFile(AFileName: string);
var B: PFastBufStream; var B: PFastBufStream;
begin begin
New(B, Init(AFileName, stOpen, 4096)); New(B, Init(AFileName, stOpenRead, 4096));
if (B<>nil) and (B^.Status<>stOK) then if (B<>nil) and (B^.Status<>stOK) then
begin Dispose(B, Done); B:=nil; end; begin Dispose(B, Done); B:=nil; end;
if B=nil then Fail; if B=nil then Fail;