+ added descendant class TOmfObjSection (empty for now) for storing omf sections' extra data

git-svn-id: trunk@30474 -

compiler/ogomf.pas

@@ -53,12 +53,18 @@ interface
         property OmfFixup: TOmfSubRecord_FIXUP read FOmfFixup;
       end;
 
+      { TOmfObjSection }
+
+      TOmfObjSection = class(TObjSection)
+      end;
+
       { TOmfObjData }
 
       TOmfObjData = class(TObjData)
       private
         class function CodeSectionName(const aname:string): string;
       public
+        constructor create(const n:string);override;
         function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
         procedure writeReloc(Data:aint;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
       end;
@@ -146,6 +152,12 @@ implementation
           result:='text';
       end;
 
+    constructor TOmfObjData.create(const n: string);
+      begin
+        inherited create(n);
+        CObjSection:=TOmfObjSection;
+      end;
+
     function TOmfObjData.sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;
       const
         secnames : array[TAsmSectiontype] of string[length('__DATA, __datacoal_nt,coalesced')] = ('','',