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

* generate the omf alignment based on the value of SecAlign, instead of

Browse Source 
duplicating the code from sectiontype2align in the TOmfObjSection constructor

git-svn-id: trunk@30603 -
This commit is contained in:
nickysn 2015-04-15 08:55:19 +00:00
parent d7416afd88
commit c407f61107
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/ogomf.pas
View File

@ -61,15 +61,15 @@ interface
private
FClassName: string;
FOverlayName: string;
FOmfAlignment: TOmfSegmentAlignment;
FCombination: TOmfSegmentCombination;
FUse: TOmfSegmentUse;
FPrimaryGroup: string;
function GetOmfAlignment: TOmfSegmentAlignment;
public
constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:shortint;Aoptions:TObjSectionOptions);override;
property ClassName: string read FClassName;
property OverlayName: string read FOverlayName;
property OmfAlignment: TOmfSegmentAlignment read FOmfAlignment;
property OmfAlignment: TOmfSegmentAlignment read GetOmfAlignment;
property Combination: TOmfSegmentCombination read FCombination;
property Use: TOmfSegmentUse read FUse;
property PrimaryGroup: string read FPrimaryGroup;
@ -227,6 +227,22 @@ implementation
TOmfObjSection
****************************************************************************}
function TOmfObjSection.GetOmfAlignment: TOmfSegmentAlignment;
begin
case SecAlign of
1:
result:=saRelocatableByteAligned;
2:
result:=saRelocatableWordAligned;
4:
result:=saRelocatableDWordAligned;
16:
result:=saRelocatableParaAligned;
else
internalerror(2015041504);
end;
end;
constructor TOmfObjSection.create(AList: TFPHashObjectList;
const Aname: string; Aalign: shortint; Aoptions: TObjSectionOptions);
var
@ -235,7 +251,6 @@ implementation
inherited create(AList, Aname, Aalign, Aoptions);
FCombination:=scPublic;
FUse:=suUse16;
FOmfAlignment:=saRelocatableByteAligned;
if oso_executable in Aoptions then
begin
FClassName:='code';
@ -245,13 +260,11 @@ implementation
begin
FClassName:='stack';
FCombination:=scStack;
FOmfAlignment:=saRelocatableParaAligned;
dgroup:=current_settings.x86memorymodel in (x86_near_data_models-[mm_tiny]);
end
else if Aname='heap' then
begin
FClassName:='heap';
FOmfAlignment:=saRelocatableParaAligned;
dgroup:=current_settings.x86memorymodel in x86_near_data_models;
end
else if Aname='bss' then
@ -262,7 +275,6 @@ implementation
else if Aname='data' then
begin
FClassName:='data';
FOmfAlignment:=saRelocatableWordAligned;
dgroup:=true;
end
else