浏览代码

* 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;
         g: TOmfRecord_GRPDEF;
       begin
       begin
         g:=TOmfRecord_GRPDEF(Groups.Find(groupname));
         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);
         g.AddSegmentIndex(segindex);
       end;
       end;