Browse Source

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

git-svn-id: trunk@31342 -
nickysn 10 years ago
parent
commit
6d6ed840a4
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/ogomf.pas

+ 1 - 0
compiler/ogomf.pas

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