From 8a831f4c7f90da355ad36a49bcf9f63f8f6581e0 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 9 Apr 2015 15:42:29 +0000
Subject: [PATCH] * 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 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 41c72441e3..4cf29ddf9c 100644
--- a/compiler/ogomf.pas
+++ b/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