paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 20:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pass a TObjSectionGroup object as parameter to TOmfObjOutput.AddGroup, instead

Browse Source 
of the group name

git-svn-id: trunk@39273 -
This commit is contained in:
nickysn 2018-06-21 20:45:52 +00:00
parent d3db9e101a
commit 8a34bd22b8
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogomf.pas
View File

@ -123,7 +123,7 @@ interface
procedure AddSegment(const name,segclass,ovlname: string;
Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination;
Use: TOmfSegmentUse; Size: TObjSectionOfs);
procedure AddGroup(const groupname: string);
procedure AddGroup(group: TObjSectionGroup);
procedure AddSegmentToGroup(const groupname: string; segindex: Integer);
procedure WriteSections(Data:TObjData);
procedure WriteSectionContentAndFixups(sec: TObjSection);
@ -773,13 +773,13 @@ implementation
s.SegmentLength:=Size;
end;
procedure TOmfObjOutput.AddGroup(const groupname: string);
procedure TOmfObjOutput.AddGroup(group: TObjSectionGroup);
var
g: TOmfRecord_GRPDEF;
begin
g:=TOmfRecord_GRPDEF.Create;
Groups.Add(groupname,g);
g.GroupNameIndex:=LNames.Add(groupname);
Groups.Add(group.Name,g);
g.GroupNameIndex:=LNames.Add(group.Name);
end;
procedure TOmfObjOutput.AddSegmentToGroup(const groupname: string; segindex: Integer);
@ -1097,8 +1097,7 @@ implementation
FGroups.Add('',nil);
for i:=0 to Data.GroupsList.Count-1 do
with TObjSectionGroup(Data.GroupsList[I]) do
AddGroup(Name);
AddGroup(TObjSectionGroup(Data.GroupsList[I]));
for i:=0 to Data.ObjSectionList.Count-1 do
with TOmfObjSection(Data.ObjSectionList[I]) do
begin