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

+ implemented TOmfRecord_LNAMES.DecodeFrom

Browse Source 
git-svn-id: trunk@30583 -
This commit is contained in:
nickysn 2015-04-14 13:32:12 +00:00
parent 64cb865417
commit 10722abfac
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/omfbase.pas
View File

@ -689,9 +689,18 @@ implementation
end; end;
procedure TOmfRecord_LNAMES.DecodeFrom(RawRecord: TOmfRawRecord); procedure TOmfRecord_LNAMES.DecodeFrom(RawRecord: TOmfRawRecord);
var
NextOfs: Integer;
Name: string;
begin begin
{TODO: implement} if RawRecord.RecordType<>RT_LNAMES then
internalerror(2015040101); internalerror(2015040301);
NextOfs:=0;
while NextOfs<(RawRecord.RecordLength-1) do
begin
NextOfs:=RawRecord.ReadStringAt(NextOfs,Name);
Names.Add(Name);
end;
end; end;
procedure TOmfRecord_LNAMES.EncodeTo(RawRecord: TOmfRawRecord); procedure TOmfRecord_LNAMES.EncodeTo(RawRecord: TOmfRawRecord);