paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 19:26:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use SegmentName+'||'+ClassName for the name of OMF sections when reading OMF

Browse Source 
files, because omf segments are (according to the spec) identified by the
  tuple <SegmentName,ClassName,OverlayName> and not just by name (and we ignore
  the overlay name)

git-svn-id: trunk@31339 -
This commit is contained in:
nickysn 2015-08-18 14:31:59 +00:00
parent 0dab94e35d
commit d4b0b6f6e6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogomf.pas
View File

@ -1042,7 +1042,7 @@ implementation
end;
end;
secoptions:=[];
objsec:=TOmfObjSection(objdata.createsection(SegmentName,SecAlign,secoptions,false));
objsec:=TOmfObjSection(objdata.createsection(SegmentName+'||'+SegClassName,SecAlign,secoptions,false));
objsec.FClassName:=SegClassName;
objsec.FOverlayName:=OverlayName;
objsec.FCombination:=SegDefRec.Combination;