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

* use a case statement, instead of 'if', based on the OMF record type in

Browse Source 
TOmfObjInput.ReadLEDataAndFixups. This is to allow (in the future) handling of
  LIDATA records and FIXUPP records without preceding LEDATA/LIDATA. No
  functional changes in this commit.

git-svn-id: trunk@39166 -
This commit is contained in:
nickysn 2018-06-04 13:11:55 +00:00
parent 43d7b23555
commit 002b116322
1 changed files with 54 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogomf.pas
View File

@ -1498,8 +1498,9 @@ implementation
Thread: TOmfSubRecord_THREAD; Thread: TOmfSubRecord_THREAD;
begin begin
Result:=False; Result:=False;
if not (RawRec.RecordType in [RT_LEDATA,RT_LEDATA32]) then case RawRec.RecordType of
internalerror(2015040301); RT_LEDATA,RT_LEDATA32:
begin
Is32Bit:=RawRec.RecordType=RT_LEDATA32; Is32Bit:=RawRec.RecordType=RT_LEDATA32;
NextOfs:=RawRec.ReadIndexedRef(0,SegmentIndex); NextOfs:=RawRec.ReadIndexedRef(0,SegmentIndex);
if Is32Bit then if Is32Bit then
@ -1549,6 +1550,10 @@ implementation
end; end;
objsec.Data.seek(EnumeratedDataOffset); objsec.Data.seek(EnumeratedDataOffset);
objsec.Data.write(RawRec.RawData[NextOfs],BlockLength); objsec.Data.write(RawRec.RawData[NextOfs],BlockLength);
end;
else
internalerror(2015040301);
end;
{ also read all the FIXUPP records that may follow } { also read all the FIXUPP records that may follow }
while PeekNextRecordType in [RT_FIXUPP,RT_FIXUPP32] do while PeekNextRecordType in [RT_FIXUPP,RT_FIXUPP32] do