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

+ implemented parsing of SEGDEF omf records as well

Browse Source 
git-svn-id: trunk@30408 -
This commit is contained in:
nickysn 2015-04-02 23:59:45 +00:00
parent f380d67575
commit 28d8e915b7
1 changed files with 41 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/omfbase.pas
View File

@ -529,13 +529,52 @@ implementation
{ TOmfRecord_SEGDEF } { TOmfRecord_SEGDEF }
procedure TOmfRecord_SEGDEF.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_SEGDEF.DecodeFrom(RawRecord: TOmfRawRecord);
var
B: Byte;
Big: Boolean;
NextOfs: Integer;
begin begin
if not (RawRecord.RecordType in [RT_SEGDEF,RT_SEGDEF32]) then if not (RawRecord.RecordType in [RT_SEGDEF,RT_SEGDEF32]) then
internalerror(2015040301); internalerror(2015040301);
Is32Bit:=RawRecord.RecordType=RT_SEGDEF32; Is32Bit:=RawRecord.RecordType=RT_SEGDEF32;
{TODO: implement the rest of the parsing} B:=RawRecord.RawData[0];
internalerror(2015040304); Alignment:=TOmfSegmentAlignment(B shr 5);
Combination:=TOmfSegmentCombination((B shr 2) and 7);
Big:=(B and 2)<>0;
Use:=TOmfSegmentUse(B and 1);
NextOfs:=1;
if Alignment=saAbsolute then
begin
FrameNumber:=RawRecord.RawData[1]+(RawRecord.RawData[2] shl 8);
Offset:=RawRecord.RawData[3];
NextOfs:=4;
end
else
begin
FrameNumber:=0;
Offset:=0;
end;
if Is32Bit then
begin
SegmentLength:=RawRecord.RawData[NextOfs]+
(RawRecord.RawData[NextOfs+1] shl 8)+
(RawRecord.RawData[NextOfs+2] shl 16)+
(RawRecord.RawData[NextOfs+3] shl 24);
if Big then
SegmentLength:=4294967296;
Inc(NextOfs,4);
end
else
begin
SegmentLength:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8);
if Big then
SegmentLength:=65536;
Inc(NextOfs,2);
end;
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,FSegmentNameIndex);
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,FClassNameIndex);
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,FOverlayNameIndex);
end; end;
procedure TOmfRecord_SEGDEF.EncodeTo(RawRecord: TOmfRawRecord); procedure TOmfRecord_SEGDEF.EncodeTo(RawRecord: TOmfRawRecord);