mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 21:30:35 +02:00
+ added class for reading/writing a FIXUP subrecord in a FIXUPP omf record
git-svn-id: trunk@30448 -
This commit is contained in:
nickysn
parent
c59e8733d6
commit
444b63cf07
@ -120,6 +120,8 @@ interface
|
|||||||
scPublic7 = 7); { same as scPublic }
|
scPublic7 = 7); { same as scPublic }
|
||||||
TOmfSegmentUse = (suUse16, suUse32);
|
TOmfSegmentUse = (suUse16, suUse32);
|
||||||
|
|
||||||
|
TOmfFixupThread = (ftThread0, ftThread1, ftThread2, ftThread3);
|
||||||
|
|
||||||
TOmfFixupMode = (fmSelfRelative, fmSegmentRelative);
|
TOmfFixupMode = (fmSelfRelative, fmSegmentRelative);
|
||||||
TOmfFixupLocationType = (
|
TOmfFixupLocationType = (
|
||||||
fltLoByte = 0, { low 8 bits of 16-bit offset }
|
fltLoByte = 0, { low 8 bits of 16-bit offset }
|
||||||
@ -315,6 +317,49 @@ interface
|
|||||||
property SegmentList: TSegmentList read FSegmentList write FSegmentList;
|
property SegmentList: TSegmentList read FSegmentList write FSegmentList;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ TOmfSubRecord_FIXUP }
|
||||||
|
|
||||||
|
TOmfSubRecord_FIXUP = class
|
||||||
|
private
|
||||||
|
FIs32Bit: Boolean;
|
||||||
|
FMode: TOmfFixupMode;
|
||||||
|
FLocationType: TOmfFixupLocationType;
|
||||||
|
FLocationOffset: DWord;
|
||||||
|
FDataRecordStartOffset: DWord;
|
||||||
|
FTargetDeterminedByThread: Boolean;
|
||||||
|
FTargetThread: TOmfFixupThread;
|
||||||
|
FTargetThreadDisplacementPresent: Boolean;
|
||||||
|
FTargetMethod: TOmfFixupTargetMethod;
|
||||||
|
FTargetDatum: Integer;
|
||||||
|
FTargetDisplacement: DWord;
|
||||||
|
FFrameDeterminedByThread: Boolean;
|
||||||
|
FFrameThread: TOmfFixupThread;
|
||||||
|
FFrameMethod: TOmfFixupFrameMethod;
|
||||||
|
FFrameDatum: Integer;
|
||||||
|
function GetDataRecordOffset: Integer;
|
||||||
|
procedure SetDataRecordOffset(AValue: Integer);
|
||||||
|
public
|
||||||
|
function ReadAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
|
||||||
|
function WriteAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
|
||||||
|
|
||||||
|
property Is32Bit: Boolean read FIs32Bit write FIs32Bit;
|
||||||
|
property Mode: TOmfFixupMode read FMode write FMode;
|
||||||
|
property LocationType: TOmfFixupLocationType read FLocationType write FLocationType;
|
||||||
|
property LocationOffset: DWord read FLocationOffset write FLocationOffset;
|
||||||
|
property DataRecordStartOffset: DWord read FDataRecordStartOffset write FDataRecordStartOffset;
|
||||||
|
property DataRecordOffset: Integer read GetDataRecordOffset write SetDataRecordOffset;
|
||||||
|
property TargetDeterminedByThread: Boolean read FTargetDeterminedByThread write FTargetDeterminedByThread;
|
||||||
|
property TargetThread: TOmfFixupThread read FTargetThread write FTargetThread;
|
||||||
|
property TargetThreadDisplacementPresent: Boolean read FTargetThreadDisplacementPresent write FTargetThreadDisplacementPresent;
|
||||||
|
property TargetMethod: TOmfFixupTargetMethod read FTargetMethod write FTargetMethod;
|
||||||
|
property TargetDatum: Integer read FTargetDatum write FTargetDatum;
|
||||||
|
property TargetDisplacement: DWord read FTargetDisplacement write FTargetDisplacement;
|
||||||
|
property FrameDeterminedByThread: Boolean read FFrameDeterminedByThread write FFrameDeterminedByThread;
|
||||||
|
property FrameThread: TOmfFixupThread read FFrameThread write FFrameThread;
|
||||||
|
property FrameMethod: TOmfFixupFrameMethod read FFrameMethod write FFrameMethod;
|
||||||
|
property FrameDatum: Integer read FFrameDatum write FFrameDatum;
|
||||||
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -731,5 +776,135 @@ implementation
|
|||||||
RawRecord.CalculateChecksumByte;
|
RawRecord.CalculateChecksumByte;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ TOmfSubRecord_FIXUP }
|
||||||
|
|
||||||
|
function TOmfSubRecord_FIXUP.GetDataRecordOffset: Integer;
|
||||||
|
begin
|
||||||
|
Result:=FLocationOffset-FDataRecordStartOffset;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOmfSubRecord_FIXUP.SetDataRecordOffset(AValue: Integer);
|
||||||
|
begin
|
||||||
|
FLocationOffset:=AValue+FDataRecordStartOffset;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TOmfSubRecord_FIXUP.ReadAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
|
||||||
|
var
|
||||||
|
Locat: Word;
|
||||||
|
FixData: Byte;
|
||||||
|
begin
|
||||||
|
if (Offset+2)>High(RawRecord.RawData) then
|
||||||
|
internalerror(2015040504);
|
||||||
|
{ unlike other fields in the OMF format, this one is big endian }
|
||||||
|
Locat:=(RawRecord.RawData[Offset] shl 8) or RawRecord.RawData[Offset+1];
|
||||||
|
FixData:=RawRecord.RawData[Offset+2];
|
||||||
|
Inc(Offset,3);
|
||||||
|
if (Locat and $8000)=0 then
|
||||||
|
internalerror(2015040503);
|
||||||
|
DataRecordOffset:=Locat and $3FF;
|
||||||
|
LocationType:=TOmfFixupLocationType((Locat shr 10) and 15);
|
||||||
|
Mode:=TOmfFixupMode((Locat shr 14) and 1);
|
||||||
|
FrameDeterminedByThread:=(FixData and $80)<>0;
|
||||||
|
TargetDeterminedByThread:=(FixData and $08)<>0;
|
||||||
|
if FrameDeterminedByThread then
|
||||||
|
FrameThread:=TOmfFixupThread((FixData shr 4) and 3)
|
||||||
|
else
|
||||||
|
FrameMethod:=TOmfFixupFrameMethod((FixData shr 4) and 7);
|
||||||
|
if TargetDeterminedByThread then
|
||||||
|
begin
|
||||||
|
TargetThread:=TOmfFixupThread(FixData and 3);
|
||||||
|
TargetThreadDisplacementPresent:=(FixData and $40)=0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
TargetMethod:=TOmfFixupTargetMethod(FixData and 7);
|
||||||
|
{ read Frame Datum? }
|
||||||
|
if not FrameDeterminedByThread and (FrameMethod in [ffmSegmentIndex,ffmGroupIndex,ffmExternalIndex,ffmFrameNumber]) then
|
||||||
|
Offset:=RawRecord.ReadIndexedRef(Offset,FFrameDatum)
|
||||||
|
else
|
||||||
|
FrameDatum:=0;
|
||||||
|
{ read Target Datum? }
|
||||||
|
if not TargetDeterminedByThread then
|
||||||
|
Offset:=RawRecord.ReadIndexedRef(Offset,FTargetDatum)
|
||||||
|
else
|
||||||
|
TargetDatum:=0;
|
||||||
|
{ read Target Displacement? }
|
||||||
|
if (TargetDeterminedByThread and TargetThreadDisplacementPresent) or
|
||||||
|
(TargetMethod in [ftmSegmentIndex,ftmGroupIndex,ftmExternalIndex,ftmFrameNumber]) then
|
||||||
|
begin
|
||||||
|
if Is32Bit then
|
||||||
|
begin
|
||||||
|
if (Offset+3)>High(RawRecord.RawData) then
|
||||||
|
internalerror(2015040504);
|
||||||
|
TargetDisplacement := RawRecord.RawData[Offset]+
|
||||||
|
(RawRecord.RawData[Offset+1] shl 8)+
|
||||||
|
(RawRecord.RawData[Offset+2] shl 16)+
|
||||||
|
(RawRecord.RawData[Offset+3] shl 24);
|
||||||
|
Inc(Offset,4);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if (Offset+1)>High(RawRecord.RawData) then
|
||||||
|
internalerror(2015040504);
|
||||||
|
TargetDisplacement := RawRecord.RawData[Offset]+
|
||||||
|
(RawRecord.RawData[Offset+1] shl 8);
|
||||||
|
Inc(Offset,2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result:=Offset;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TOmfSubRecord_FIXUP.WriteAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
|
||||||
|
var
|
||||||
|
Locat: Word;
|
||||||
|
FixData: Byte;
|
||||||
|
begin
|
||||||
|
if (DataRecordOffset<0) or (DataRecordOffset>1023) then
|
||||||
|
internalerror(2015040501);
|
||||||
|
Locat:=$8000+(Ord(Mode) shl 14)+(Ord(LocationType) shl 10)+DataRecordOffset;
|
||||||
|
{ unlike other fields in the OMF format, this one is big endian }
|
||||||
|
RawRecord.RawData[Offset]:=Byte(Locat shr 8);
|
||||||
|
RawRecord.RawData[Offset+1]:=Byte(Locat);
|
||||||
|
Inc(Offset, 2);
|
||||||
|
FixData:=(Ord(FrameDeterminedByThread) shl 7)+(Ord(TargetDeterminedByThread) shl 3);
|
||||||
|
if FrameDeterminedByThread then
|
||||||
|
FixData:=FixData+(Ord(FrameThread) shl 4)
|
||||||
|
else
|
||||||
|
FixData:=FixData+(Ord(FrameMethod) shl 4);
|
||||||
|
if TargetDeterminedByThread then
|
||||||
|
FixData:=FixData+Ord(TargetThread)+(Ord(not TargetThreadDisplacementPresent) shl 2)
|
||||||
|
else
|
||||||
|
FixData:=FixData+Ord(TargetMethod);
|
||||||
|
RawRecord.RawData[Offset]:=FixData;
|
||||||
|
Inc(Offset);
|
||||||
|
{ save Frame Datum? }
|
||||||
|
if not FrameDeterminedByThread and (FrameMethod in [ffmSegmentIndex,ffmGroupIndex,ffmExternalIndex,ffmFrameNumber]) then
|
||||||
|
Offset:=RawRecord.WriteIndexedRef(Offset,FrameDatum);
|
||||||
|
{ save Target Datum? }
|
||||||
|
if not TargetDeterminedByThread then
|
||||||
|
Offset:=RawRecord.WriteIndexedRef(Offset,TargetDatum);
|
||||||
|
{ save Target Displacement? }
|
||||||
|
if (TargetDeterminedByThread and TargetThreadDisplacementPresent) or
|
||||||
|
(TargetMethod in [ftmSegmentIndex,ftmGroupIndex,ftmExternalIndex,ftmFrameNumber]) then
|
||||||
|
begin
|
||||||
|
if Is32Bit then
|
||||||
|
begin
|
||||||
|
RawRecord.RawData[Offset]:=Byte(TargetDisplacement);
|
||||||
|
RawRecord.RawData[Offset+1]:=Byte(TargetDisplacement shr 8);
|
||||||
|
RawRecord.RawData[Offset+2]:=Byte(TargetDisplacement shr 16);
|
||||||
|
RawRecord.RawData[Offset+3]:=Byte(TargetDisplacement shr 24);
|
||||||
|
Inc(Offset,4);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if TargetDisplacement>$ffff then
|
||||||
|
internalerror(2015040502);
|
||||||
|
RawRecord.RawData[Offset]:=Byte(TargetDisplacement);
|
||||||
|
RawRecord.RawData[Offset+1]:=Byte(TargetDisplacement shr 8);
|
||||||
|
Inc(Offset,2);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Result:=Offset;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user