Explorar o código

* compilation of x86 and PowerPC fixed

git-svn-id: trunk@43158 -
florian %!s(int64=5) %!d(string=hai) anos
pai
achega
e0041a8244

+ 4 - 2
compiler/omfbase.pas

@@ -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 - 0
compiler/powerpc/agppcmpw.pas

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

+ 2 - 2
compiler/ppcgen/agppcgas.pas

@@ -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 - 0
compiler/x86/agx86int.pas

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

+ 2 - 1
compiler/x86/agx86nsm.pas

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