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

+ implemented TOmfRecord_GRPDEF.DecodeFrom

Browse Source 
git-svn-id: trunk@30510 -
This commit is contained in:
nickysn 2015-04-09 12:45:47 +00:00
parent ab689edadb
commit 713f12f3f3
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

@ -835,9 +835,22 @@ implementation
{ TOmfRecord_GRPDEF } { TOmfRecord_GRPDEF }
procedure TOmfRecord_GRPDEF.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_GRPDEF.DecodeFrom(RawRecord: TOmfRawRecord);
var
NextOfs: Integer;
Segment: Integer;
begin begin
{TODO: implement} if RawRecord.RecordType<>RT_GRPDEF then
internalerror(2015040101); internalerror(2015040301);
NextOfs:=RawRecord.ReadIndexedRef(0,FGroupNameIndex);
SetLength(FSegmentList,0);
while NextOfs<RawRecord.RecordLength-1 do
begin
if RawRecord.RawData[NextOfs]<>$ff then
internalerror(2015040901);
NextOfs:=RawRecord.ReadIndexedRef(NextOfs+1,Segment);
SetLength(FSegmentList,Length(FSegmentList)+1);
FSegmentList[High(FSegmentList)]:=Segment;
end;
end; end;
procedure TOmfRecord_GRPDEF.EncodeTo(RawRecord: TOmfRawRecord); procedure TOmfRecord_GRPDEF.EncodeTo(RawRecord: TOmfRawRecord);