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

* compilation of x86 and PowerPC fixed

Browse Source 
git-svn-id: trunk@43158 -
This commit is contained in:
florian 2019-10-09 19:26:59 +00:00
parent 245b58c249
commit e0041a8244
5 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/omfbase.pas
View File

@ -87,7 +87,8 @@ interface
'objc_protolist',
'stack',
'heap',
'gcc_except_table'
'gcc_except_table',
'ARM_attributes'
);
{ OMF record types }
@ -3020,7 +3021,8 @@ implementation
{objc_protolist} 'DATA',
{stack} 'STACK',
{heap} 'HEAP',
{gcc_except_table} 'DATA'
{gcc_except_table} 'DATA',
{ARM_attributes} 'DATA'
);
begin
result:=segclass[atype];

1
compiler/powerpc/agppcmpw.pas
View File

@ -120,6 +120,7 @@ interface
'',
'',
'',
'',
''
);

4
compiler/ppcgen/agppcgas.pas
View File

@ -58,7 +58,7 @@ unit agppcgas;
constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
protected
function sectionname(atype: TAsmSectiontype; const aname: string; aorder: TAsmSectionOrder): string; override;
procedure WriteSection(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder;secalign:longint;secflags:TSectionFlags=SF_None;secprogbits:TSectionProgbits=SPB_None); override;
procedure WriteSection(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder;secalign:longint;secflags:TSectionFlags=[];secprogbits:TSectionProgbits=SPB_None); override;
procedure WriteAsmList; override;
procedure WriteExtraHeader; override;
procedure WriteExtraFooter; override;
@ -487,7 +487,7 @@ unit agppcgas;
end;
procedure TPPCAIXAssembler.WriteSection(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder;secalign:longint;
secflags:TSectionFlags=SF_None;secprogbits:TSectionProgbits=SPB_None);
secflags:TSectionFlags=[];secprogbits:TSectionProgbits=SPB_None);
begin
secalign:=max_alignment[atype];

2
compiler/x86/agx86int.pas
View File

@ -151,6 +151,7 @@ implementation
'',
'',
'',
'',
''
);
@ -204,6 +205,7 @@ implementation
'',
'',
'',
'',
''
);

3
compiler/x86/agx86nsm.pas
View File

@ -558,7 +558,8 @@ interface
'.objc_protolist',
'.stack',
'.heap',
',gcc_except_table'
',gcc_except_table',
',ARM_attributes'
);
var
secname,secgroup: string;