paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 11:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added a getter for the NewExeSegmentFlags property, that returns the

Browse Source 
nesfHasRelocationData flag according to whether the Relocations list is
  non-empty

git-svn-id: trunk@42746 -
This commit is contained in:
nickysn 2019-08-20 13:49:43 +00:00
parent 36b7842eb6
commit 94e22f1262
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ogomf.pas
View File

@ -725,6 +725,7 @@ interface
FSizeInFile: QWord;
FRelocations: TNewExeRelocationList;
function GetMinAllocSize: QWord;
function GetNewExeSegmentFlags: TNewExeSegmentFlags;
public
constructor create(AList:TFPHashObjectList;const AName:string);override;
destructor destroy;override;
@ -740,7 +741,7 @@ interface
property DataPosSectors: Word read FDataPosSectors write FDataPosSectors;
property MinAllocSize: QWord read GetMinAllocSize;
property SizeInFile: QWord read FSizeInFile write FSizeInFile;
property NewExeSegmentFlags: TNewExeSegmentFlags read FNewExeSegmentFlags write FNewExeSegmentFlags;
property NewExeSegmentFlags: TNewExeSegmentFlags read GetNewExeSegmentFlags write FNewExeSegmentFlags;
property Relocations: TNewExeRelocationList read FRelocations;
end;
@ -4361,6 +4362,15 @@ cleanup:
Result:=Size-StackSize;
end;
function TNewExeSection.GetNewExeSegmentFlags: TNewExeSegmentFlags;
begin
Result:=FNewExeSegmentFlags;
if Relocations.Count>0 then
Include(Result,nesfHasRelocationData)
else
Exclude(Result,nesfHasRelocationData);
end;
constructor TNewExeSection.create(AList:TFPHashObjectList;const AName:string);
begin
inherited create(AList, AName);