瀏覽代碼

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

Nikolay Nikolov 1 年之前
父節點
當前提交
8a7743b566
共有 1 個文件被更改,包括 2 次插入0 次删除
  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