paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 11:29:11 +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', 'objc_protolist',
'stack', 'stack',
'heap', 'heap',
'gcc_except_table' 'gcc_except_table',
'ARM_attributes'
); );
{ OMF record types } { OMF record types }
@ -3020,7 +3021,8 @@ implementation
{objc_protolist} 'DATA', {objc_protolist} 'DATA',
{stack} 'STACK', {stack} 'STACK',
{heap} 'HEAP', {heap} 'HEAP',
{gcc_except_table} 'DATA' {gcc_except_table} 'DATA',
{ARM_attributes} 'DATA'
); );
begin begin
result:=segclass[atype]; 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; constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
protected protected
function sectionname(atype: TAsmSectiontype; const aname: string; aorder: TAsmSectionOrder): string; override; 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 WriteAsmList; override;
procedure WriteExtraHeader; override; procedure WriteExtraHeader; override;
procedure WriteExtraFooter; override; procedure WriteExtraFooter; override;
@ -487,7 +487,7 @@ unit agppcgas;
end; end;
procedure TPPCAIXAssembler.WriteSection(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder;secalign:longint; 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 begin
secalign:=max_alignment[atype]; 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', '.objc_protolist',
'.stack', '.stack',
'.heap', '.heap',
',gcc_except_table' ',gcc_except_table',
',ARM_attributes'
); );
var var
secname,secgroup: string; secname,secgroup: string;