* always clear segments and groups in the beginning of TOmfObjOutput.writeData, because the same objects is used for creating multiple object files

git-svn-id: trunk@30516 -

compiler/ogomf.pas

@@ -589,6 +589,10 @@ implementation
 
         LNames.Clear;
         LNames.Add('');  { insert an empty string, which has index 1 }
+        FSegments.Clear;
+        FSegments.Add('',nil);
+        FGroups.Clear;
+        FGroups.Add('',nil);
 
         for i:=0 to Data.ObjSectionList.Count-1 do
           with TOmfObjSection(Data.ObjSectionList[I]) do