Browse Source

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

Nikolay Nikolov 1 year ago
parent
commit
8a7743b566
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ogwasm.pas

+ 2 - 0
compiler/ogwasm.pas

@@ -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