paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support reading OMF files with THREAD FIXUPP subrecords; note that fixups,

Browse Source 
determined by thread are still not yet implemented

git-svn-id: trunk@39150 -
This commit is contained in:
nickysn 2018-05-30 14:30:54 +00:00
parent ebecfb1ce9
commit 2fb73de404
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogomf.pas
View File

@ -1495,6 +1495,7 @@ implementation
objsec: TOmfObjSection;
FixupRawRec: TOmfRawRecord;
Fixup: TOmfSubRecord_FIXUP;
Thread: TOmfSubRecord_THREAD;
begin
Result:=False;
if not (RawRec.RecordType in [RT_LEDATA,RT_LEDATA32]) then
@ -1561,22 +1562,35 @@ implementation
exit;
end;
NextOfs:=0;
Thread:=TOmfSubRecord_THREAD.Create;
Fixup:=TOmfSubRecord_FIXUP.Create;
Fixup.Is32Bit:=FixupRawRec.RecordType=RT_FIXUPP32;
Fixup.DataRecordStartOffset:=EnumeratedDataOffset;
while NextOfs<(FixupRawRec.RecordLength-1) do
begin
if (FixupRawRec.RawData[NextOfs] and $80)<>0 then
begin
{ FIXUP subrecord }
NextOfs:=Fixup.ReadAt(FixupRawRec,NextOfs);
if Fixup.FrameDeterminedByThread or Fixup.TargetDeterminedByThread then
begin
InputError('Fixups determined by thread not supported');
Fixup.Free;
Thread.Free;
FixupRawRec.Free;
exit;
end;
ImportOmfFixup(objdata,objsec,Fixup);
end
else
begin
{ THREAD subrecord }
NextOfs:=Thread.ReadAt(FixupRawRec,NextOfs);
Thread.ApplyTo(FFixupThreads);
end;
end;
Fixup.Free;
Thread.Free;
FixupRawRec.Free;
end;
Result:=True;