+ added TWasmObjSection class

compiler/ogwasm.pas

@@ -40,6 +40,11 @@ interface
 
     type
 
+      { TWasmObjSection }
+
+      TWasmObjSection = class(TObjSection)
+      end;
+
       { TWasmObjData }
 
       TWasmObjData = class(TObjData)
@@ -47,6 +52,7 @@ interface
         function is_smart_section(atype:TAsmSectiontype):boolean;
         function sectionname_gas(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;
       public
+        constructor create(const n:string);override;
         function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
         procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
       end;
@@ -212,6 +218,12 @@ implementation
           result:=secname;
       end;
 
+    constructor TWasmObjData.create(const n: string);
+      begin
+        inherited;
+        CObjSection:=TWasmObjSection;
+      end;
+
     function TWasmObjData.sectionname(atype: TAsmSectiontype;
         const aname: string; aorder: TAsmSectionOrder): string;
       begin