+ added TWasmExeOutput class (not implemented, yet)

compiler/ogwasm.pas

@@ -191,6 +191,14 @@ interface
         function ReadObjData(AReader:TObjectreader;out ObjData:TObjData):boolean;override;
       end;
 
+      { TWasmExeOutput }
+
+      TWasmExeOutput = class(TExeOutput)
+      protected
+        function writeData:boolean;override;
+        procedure DoRelocationFixup(objsec:TObjSection);override;
+      end;
+
       { TWasmAssembler }
 
       TWasmAssembler = class(tinternalassembler)
@@ -2198,6 +2206,22 @@ implementation
         Result:=True;
       end;
 
+{****************************************************************************
+                               TWasmExeOutput
+****************************************************************************}
+
+    function TWasmExeOutput.writeData: boolean;
+      begin
+        result:=false;
+        {TODO: implement}
+      end;
+
+    procedure TWasmExeOutput.DoRelocationFixup(objsec: TObjSection);
+      begin
+        {TODO: implement}
+      end;
+
+
 {****************************************************************************
                                TWasmAssembler
 ****************************************************************************}

compiler/systems/t_wasi.pas

@@ -290,6 +290,7 @@ end;
 constructor TInternalLinkerWasi.create;
 begin
   inherited create;
+  CExeOutput:=TWasmExeOutput;
   CObjInput:=TWasmObjInput;
 end;