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

+ implemented TOmfRecord_EXTDEF.DecodeFrom

Browse Source 
git-svn-id: trunk@30584 -
This commit is contained in:
nickysn 2015-04-14 13:40:46 +00:00
parent 10722abfac
commit cea67320bf
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/omfbase.pas
View File

@ -972,9 +972,22 @@ implementation
{ TOmfRecord_EXTDEF } { TOmfRecord_EXTDEF }
procedure TOmfRecord_EXTDEF.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_EXTDEF.DecodeFrom(RawRecord: TOmfRawRecord);
var
NextOfs: Integer;
Name: string;
TypeIndex: Integer;
ExtName: TOmfExternalNameElement;
begin begin
{TODO: implement} if RawRecord.RecordType<>RT_EXTDEF then
internalerror(2015040101); internalerror(2015040301);
NextOfs:=0;
while NextOfs<(RawRecord.RecordLength-1) do
begin
NextOfs:=RawRecord.ReadStringAt(NextOfs,Name);
NextOfs:=RawRecord.ReadIndexedRef(NextOfs,TypeIndex);
ExtName:=TOmfExternalNameElement.Create(ExternalNames,Name);
ExtName.TypeIndex:=TypeIndex;
end;
end; end;
procedure TOmfRecord_EXTDEF.EncodeTo(RawRecord: TOmfRawRecord); procedure TOmfRecord_EXTDEF.EncodeTo(RawRecord: TOmfRawRecord);