Преглед на файлове

* 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;
         i: Integer;
       begin
+        FReader:=AReader;
+        InputFileName:=AReader.FileName;
         objdata:=CObjData.Create(InputFileName);
         result:=false;
         if not AReader.read(ModuleMagic,4) then