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

* don't check for the presence of the group in TOmfObjOutput.AddSegmentToGroup,

Browse Source 
because, it is no longer possible for it to not be present (all the groups
  are added beforehand now)

git-svn-id: trunk@39272 -
This commit is contained in:
nickysn 2018-06-21 20:33:24 +00:00
parent 9a0eca52cb
commit d3db9e101a
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogomf.pas
View File

@ -787,12 +787,6 @@ implementation
g: TOmfRecord_GRPDEF;
begin
g:=TOmfRecord_GRPDEF(Groups.Find(groupname));
if g=nil then
begin
g:=TOmfRecord_GRPDEF.Create;
Groups.Add(groupname,g);
g.GroupNameIndex:=LNames.Add(groupname);
end;
g.AddSegmentIndex(segindex);
end;