paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 01:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add a segment number (MemBasePos) to TNewExeSection

Browse Source 
git-svn-id: trunk@42563 -
This commit is contained in:
nickysn 2019-08-02 14:47:19 +00:00
parent 30e7406be3
commit 8e436e6335
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -498,11 +498,13 @@ interface
private
FEarlySize: QWord;
FExeMetaSec: TNewExeMetaSection;
FMemBasePos: Word;
public
procedure AddObjSection(objsec:TObjSection;ignoreprops:boolean=false);override;
function CanAddObjSection(objsec:TObjSection;ExeSectionLimit:QWord):boolean;
property EarlySize: QWord read FEarlySize write FEarlySize;
property ExeMetaSec: TNewExeMetaSection read FExeMetaSec write FExeMetaSec;
property MemBasePos: Word read FMemBasePos write FMemBasePos;
end;
{ TNewExeOutput }
@ -3641,11 +3643,14 @@ cleanup:
procedure TNewExeOutput.AddNewExeSection;
var
SegNr: Integer;
SecName: string;
begin
WriteStr(SecName,'Segment',ExeSectionList.Count+1,'_',NewExeMetaSection2String[CurrExeMetaSec]);
SegNr:=ExeSectionList.Count+1;
WriteStr(SecName,'Segment',SegNr,'_',NewExeMetaSection2String[CurrExeMetaSec]);
inherited Order_ExeSection(SecName);
TNewExeSection(CurrExeSec).ExeMetaSec:=CurrExeMetaSec;
TNewExeSection(CurrExeSec).MemBasePos:=SegNr;
end;
function TNewExeOutput.WriteNewExe: boolean;