paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 13:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set FReader and InputFileName in the beginning of TWasmObjInput.ReadObjData

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-26 16:07:34 +02:00
parent e7f6da4cb0
commit 8a7743b566
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogwasm.pas
View File

@ -2789,6 +2789,8 @@ implementation
ModuleVersion: array [0..3] of Byte; ModuleVersion: array [0..3] of Byte;
i: Integer; i: Integer;
begin begin
FReader:=AReader;
InputFileName:=AReader.FileName;
objdata:=CObjData.Create(InputFileName); objdata:=CObjData.Create(InputFileName);
result:=false; result:=false;
if not AReader.read(ModuleMagic,4) then if not AReader.read(ModuleMagic,4) then