* change TObjData.sectiontype2options to a class function so that it can be called without an instance of TObjData

git-svn-id: trunk@43265 -

compiler/ogbase.pas

@@ -395,7 +395,7 @@ interface
        destructor  destroy;override;
        { Sections }
        function  sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;virtual;abstract;
-       function  sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;virtual;
+       class function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;virtual;
        function  sectiontype2align(atype:TAsmSectiontype):longint;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;
@@ -1201,7 +1201,7 @@ implementation
       end;
 
 
-    function TObjData.sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;
+    class function TObjData.sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;
       const
         secoptions : array[TAsmSectiontype] of TObjSectionOptions = ([],
           {user} [oso_Data,oso_load,oso_write],

compiler/ogcoff.pas

@@ -133,7 +133,7 @@ interface
          constructor createcoff(const n:string;awin32:boolean;acObjSection:TObjSectionClass);
          procedure CreateDebugSections;override;
          function  sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
-         function  sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
+         class function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
          procedure writereloc(data:aint;len:aword;p:TObjSymbol;reloctype:TObjRelocationType);override;
        end;
 
@@ -1126,7 +1126,7 @@ const pemagic : array[0..3] of byte = (
       end;
 
 
-    function TCoffObjData.sectiontype2options(aType:TAsmSectionType): TObjSectionOptions;
+    class function TCoffObjData.sectiontype2options(aType:TAsmSectionType): TObjSectionOptions;
       begin
         if (aType in [sec_rodata,sec_rodata_norel]) then
           begin

compiler/ogmacho.pas

@@ -75,7 +75,7 @@ type
         procedure CreateDebugSections; override;
         function sectionname(atype:TAsmSectiontype; const aname:string; aorder:TAsmSectionOrder):string;override;
         function sectiontype2align(atype:TAsmSectiontype):longint;override;
-        function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
+        class function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
         procedure writereloc(data:aint; len:aword; p:TObjSymbol; reltype:TObjRelocationType);override;
       public
       end;
@@ -344,7 +344,7 @@ uses
     end;
 
 
-  function TmachoObjData.sectiontype2options(atype: TAsmSectiontype): TObjSectionOptions;
+  class function TmachoObjData.sectiontype2options(atype: TAsmSectiontype): TObjSectionOptions;
     begin
       case atype of
         sec_objc_meth_var_names,

compiler/ogomf.pas

@@ -128,7 +128,7 @@ interface
       public
         constructor create(const n:string);override;
         destructor destroy;override;
-        function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
+        class function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
         function sectiontype2align(atype:TAsmSectiontype):longint;override;
         function sectiontype2class(atype:TAsmSectiontype):string;
         function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
@@ -1070,7 +1070,7 @@ implementation
         inherited destroy;
       end;
 
-    function TOmfObjData.sectiontype2options(atype: TAsmSectiontype): TObjSectionOptions;
+    class function TOmfObjData.sectiontype2options(atype: TAsmSectiontype): TObjSectionOptions;
       begin
         Result:=inherited sectiontype2options(atype);
         { in the huge memory model, BSS data is actually written in the regular