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

+ add a method to TObjData to retrieve the TSectionProcBits and TSectionFlags values for a given section type

Browse Source 
git-svn-id: trunk@43266 -
This commit is contained in:
svenbarth 2019-10-19 15:41:37 +00:00
parent e5de269664
commit 7f8800eeb1
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/ogbase.pas
View File

@ -397,6 +397,7 @@ interface
function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;virtual;abstract;
class function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;virtual;
function sectiontype2align(atype:TAsmSectiontype):longint;virtual;
class procedure sectiontype2progbitsandflags(atype:TAsmSectiontype;out progbits:TSectionProgbits;out flags:TSectionFlags);virtual;
function createsection(atype:TAsmSectionType;const aname:string='';aorder:TAsmSectionOrder=secorder_default):TObjSection;virtual;
function createsection(atype:TAsmSectionType;secflags:TSectionFlags;aprogbits:TSectionProgbits;const aname:string='';aorder:TAsmSectionOrder=secorder_default):TObjSection;virtual;
function createsection(const aname:string;aalign:longint;aoptions:TObjSectionOptions;DiscardDuplicate:boolean=true):TObjSection;virtual;
@ -1308,6 +1309,29 @@ implementation
end;
class procedure TObjData.sectiontype2progbitsandflags(atype:TAsmSectiontype;out progbits:TSectionProgbits;out flags:TSectionFlags);
var
options : TObjSectionOptions;
begin
{ this is essentially the inverse of the createsection overload that takes
both progbits and flags as parameters }
options:=sectiontype2options(atype);
flags:=[];
if oso_load in options then
include(flags,SF_A);
if oso_write in options then
include(flags,SF_W);
if oso_executable in options then
include(flags,SF_X);
if not (oso_data in options) then
progbits:=SPB_NOBITS
else if oso_note in options then
progbits:=SPB_NOTE
else if oso_arm_attributes in options then
progbits:=SPB_ARM_ATTRIBUTES;
end;
function TObjData.createsection(atype:TAsmSectionType;const aname:string;aorder:TAsmSectionOrder):TObjSection;
begin
result:=createsection(sectionname(atype,aname,aorder),sectiontype2align(atype),sectiontype2options(atype));