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

+ added classes for writing PUBDEF omf records

Browse Source 
git-svn-id: trunk@30490 -
This commit is contained in:
nickysn 2015-04-07 22:18:46 +00:00
parent 35e008e44b
commit c4a8f22bc9
1 changed files with 114 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

114
compiler/omfbase.pas
View File

@ -317,6 +317,43 @@ interface
property SegmentList: TSegmentList read FSegmentList write FSegmentList; property SegmentList: TSegmentList read FSegmentList write FSegmentList;
end; end;
{ TOmfPublicNameElement }
TOmfPublicNameElement = class(TFPHashObject)
private
FPublicOffset: DWord;
FTypeIndex: Integer;
public
function GetLengthInFile(Is32Bit: Boolean): Integer;
property PublicOffset: DWord read FPublicOffset write FPublicOffset;
property TypeIndex: Integer read FTypeIndex write FTypeIndex;
end;
{ TOmfRecord_PUBDEF }
TOmfRecord_PUBDEF = class(TOmfParsedRecord)
private
FIs32Bit: Boolean;
FBaseGroupIndex: Integer;
FBaseSegmentIndex: Integer;
FBaseFrame: Word;
FPublicNames: TFPHashObjectList;
FNextIndex: Integer;
public
procedure DecodeFrom(RawRecord: TOmfRawRecord);override;
procedure EncodeTo(RawRecord: TOmfRawRecord);override;
property Is32Bit: Boolean read FIs32Bit write FIs32Bit;
property BaseGroupIndex: Integer read FBaseGroupIndex write FBaseGroupIndex;
property BaseSegmentIndex: Integer read FBaseSegmentIndex write FBaseSegmentIndex;
property BaseFrame: Word read FBaseFrame write FBaseFrame;
property PublicNames: TFPHashObjectList read FPublicNames write FPublicNames;
property NextIndex: Integer read FNextIndex write FNextIndex;
end;
{ TOmfRecord_MODEND } { TOmfRecord_MODEND }
TOmfRecord_MODEND = class(TOmfParsedRecord) TOmfRecord_MODEND = class(TOmfParsedRecord)
@ -796,6 +833,83 @@ implementation
RawRecord.CalculateChecksumByte; RawRecord.CalculateChecksumByte;
end; end;
{ TOmfPublicNameElement }
function TOmfPublicNameElement.GetLengthInFile(Is32Bit: Boolean): Integer;
begin
Result:=1+Length(Name)+2+1;
if Is32Bit then
Inc(Result,2);
if TypeIndex>=$80 then
Inc(Result);
end;
{ TOmfRecord_PUBDEF }
procedure TOmfRecord_PUBDEF.DecodeFrom(RawRecord: TOmfRawRecord);
begin
{TODO: implement}
internalerror(2015040101);
end;
procedure TOmfRecord_PUBDEF.EncodeTo(RawRecord: TOmfRawRecord);
const
RecordLengthLimit = 1024;
var
Len,LastIncludedIndex,NextOfs,I: Integer;
PubName: TOmfPublicNameElement;
begin
if Is32Bit then
RawRecord.RecordType:=RT_PUBDEF32
else
RawRecord.RecordType:=RT_PUBDEF;
NextOfs:=RawRecord.WriteIndexedRef(0,BaseGroupIndex);
NextOfs:=RawRecord.WriteIndexedRef(0,BaseSegmentIndex);
if BaseSegmentIndex=0 then
begin
RawRecord.RawData[NextOfs]:=Byte(BaseFrame);
RawRecord.RawData[NextOfs+1]:=Byte(BaseFrame shr 8);
Inc(NextOfs,2);
end;
{ find out how many public names can we include until we reach the length limit }
Len:=NextOfs;
LastIncludedIndex:=NextIndex-1;
repeat
Inc(LastIncludedIndex);
Inc(Len,TOmfPublicNameElement(PublicNames[LastIncludedIndex]).GetLengthInFile(Is32Bit));
until (LastIncludedIndex>=PublicNames.Count) or ((Len+TOmfPublicNameElement(PublicNames[LastIncludedIndex+1]).GetLengthInFile(Is32Bit))>=RecordLengthLimit);
{ write the public names... }
NextOfs:=0;
for I:=NextIndex to LastIncludedIndex do
begin
PubName:=TOmfPublicNameElement(PublicNames[I]);
NextOfs:=RawRecord.WriteStringAt(NextOfs,PubName.Name);
if Is32Bit then
begin
RawRecord.RawData[NextOfs]:=Byte(PubName.PublicOffset);
RawRecord.RawData[NextOfs+1]:=Byte(PubName.PublicOffset shr 8);
RawRecord.RawData[NextOfs+2]:=Byte(PubName.PublicOffset shr 16);
RawRecord.RawData[NextOfs+3]:=Byte(PubName.PublicOffset shr 24);
Inc(NextOfs,4);
end
else
begin
RawRecord.RawData[NextOfs]:=Byte(PubName.PublicOffset);
RawRecord.RawData[NextOfs+1]:=Byte(PubName.PublicOffset shr 8);
Inc(NextOfs,2);
end;
NextOfs:=RawRecord.WriteIndexedRef(NextOfs,PubName.TypeIndex);
end;
RawRecord.RecordLength:=Len;
RawRecord.CalculateChecksumByte;
{ update NextIndex }
NextIndex:=LastIncludedIndex+1;
end;
{ TOmfRecord_MODEND } { TOmfRecord_MODEND }
procedure TOmfRecord_MODEND.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_MODEND.DecodeFrom(RawRecord: TOmfRawRecord);