Преглед изворни кода

* don't check for the presence of the group in TOmfObjOutput.AddSegmentToGroup,
because, it is no longer possible for it to not be present (all the groups
are added beforehand now)

git-svn-id: trunk@39272 -

nickysn пре 7 година
родитељ
комит
d3db9e101a
1 измењених фајлова са 0 додато и 6 уклоњено
  1. 0 6
      compiler/ogomf.pas

+ 0 - 6
compiler/ogomf.pas

@@ -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;