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

+ implemented TOmfRecord_PUBDEF.DecodeFrom

Browse Source 
git-svn-id: trunk@30585 -
This commit is contained in:
nickysn 2015-04-14 14:08:27 +00:00
parent cea67320bf
commit bf0aaf5470
1 changed files with 45 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/omfbase.pas
View File

@ -898,9 +898,52 @@ implementation
{ TOmfRecord_PUBDEF }
procedure TOmfRecord_PUBDEF.DecodeFrom(RawRecord: TOmfRawRecord);
var
NextOfs: Integer;
Name: string;
TypeIndex: Integer;
PublicOffset: DWord;
PubName: TOmfPublicNameElement;
begin
{TODO: implement}
internalerror(2015040101);
if not (RawRecord.RecordType in [RT_PUBDEF,RT_PUBDEF32]) then
internalerror(2015040301);
Is32Bit:=RawRecord.RecordType=RT_PUBDEF32;
NextOfs:=RawRecord.ReadIndexedRef(0,FBaseGroupIndex);
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,FBaseSegmentIndex);
if BaseSegmentIndex=0 then
begin
if (NextOfs+1)>High(RawRecord.RawData) then
internalerror(2015041401);
BaseFrame:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8);
Inc(NextOfs,2);
end
else
BaseFrame:=0;
while NextOfs<(RawRecord.RecordLength-1) do
begin
NextOfs:=RawRecord.ReadStringAt(NextOfs,Name);
if Is32Bit then
begin
if (NextOfs+3)>High(RawRecord.RawData) then
internalerror(2015041401);
PublicOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8)+
(RawRecord.RawData[NextOfs+2] shl 16)+(RawRecord.RawData[NextOfs+3] shl 24);
Inc(NextOfs,4);
end
else
begin
if (NextOfs+1)>High(RawRecord.RawData) then
internalerror(2015041401);
PublicOffset:=RawRecord.RawData[NextOfs]+(RawRecord.RawData[NextOfs+1] shl 8);
Inc(NextOfs,2);
end;
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,TypeIndex);
PubName:=TOmfPublicNameElement.Create(PublicNames,Name);
PubName.PublicOffset:=PublicOffset;
PubName.TypeIndex:=TypeIndex;
end;
end;
procedure TOmfRecord_PUBDEF.EncodeTo(RawRecord: TOmfRawRecord);