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

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

Browse Source 
git-svn-id: trunk@30516 -
This commit is contained in:
nickysn 2015-04-09 15:42:29 +00:00
parent f66d8cfb7f
commit 8a831f4c7f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogomf.pas
View File

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