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

+ also fill the "size" field in the SEGDEF records

Browse Source 
git-svn-id: trunk@30480 -
This commit is contained in:
nickysn 2015-04-07 01:38:55 +00:00
parent a0aa85f372
commit 13ed542f0c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -93,7 +93,7 @@ interface
FGroups: TFPHashObjectList; FGroups: TFPHashObjectList;
procedure AddSegment(const name,segclass,ovlname: string; procedure AddSegment(const name,segclass,ovlname: string;
Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination; Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination;
Use: TOmfSegmentUse); Use: TOmfSegmentUse; Size: aword);
procedure AddGroup(const groupname: string; seglist: array of const); procedure AddGroup(const groupname: string; seglist: array of const);
procedure WriteSections(Data:TObjData); procedure WriteSections(Data:TObjData);
procedure WriteSectionContentAndFixups(sec: TObjSection); procedure WriteSectionContentAndFixups(sec: TObjSection);
@ -327,7 +327,7 @@ implementation
procedure TOmfObjOutput.AddSegment(const name, segclass, ovlname: string; procedure TOmfObjOutput.AddSegment(const name, segclass, ovlname: string;
Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination; Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination;
Use: TOmfSegmentUse); Use: TOmfSegmentUse; Size: aword);
var var
s: TOmfRecord_SEGDEF; s: TOmfRecord_SEGDEF;
begin begin
@ -339,6 +339,7 @@ implementation
s.Alignment:=Alignment; s.Alignment:=Alignment;
s.Combination:=Combination; s.Combination:=Combination;
s.Use:=Use; s.Use:=Use;
s.SegmentLength:=Size;
end; end;
procedure TOmfObjOutput.AddGroup(const groupname: string; seglist: array of const); procedure TOmfObjOutput.AddGroup(const groupname: string; seglist: array of const);
@ -490,7 +491,7 @@ implementation
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
AddSegment(Name,ClassName,OverlayName,OmfAlignment,Combination,Use); AddSegment(Name,ClassName,OverlayName,OmfAlignment,Combination,Use,Size);
{ if current_settings.x86memorymodel=mm_tiny then { if current_settings.x86memorymodel=mm_tiny then
AddGroup('dgroup',['text','rodata','data','fpc','bss','heap']) AddGroup('dgroup',['text','rodata','data','fpc','bss','heap'])