Ver Fonte

* set the data record start offset of the omf fixup object when reading omf fixups

git-svn-id: trunk@31342 -
nickysn há 10 anos atrás
pai
commit
6d6ed840a4
1 ficheiros alterados com 1 adições e 0 exclusões
  1. 1 0
      compiler/ogomf.pas

+ 1 - 0
compiler/ogomf.pas

@@ -1305,6 +1305,7 @@ implementation
             NextOfs:=0;
             Fixup:=TOmfSubRecord_FIXUP.Create;
             Fixup.Is32Bit:=FixupRawRec.RecordType=RT_FIXUPP32;
+            Fixup.DataRecordStartOffset:=EnumeratedDataOffset;
             while NextOfs<(FixupRawRec.RecordLength-1) do
               begin
                 NextOfs:=Fixup.ReadAt(FixupRawRec,NextOfs);