Browse Source

+ added TWasmObjInput class. To be used in the WASM internal linker. Not doing anything, yet.

Nikolay Nikolov 1 year ago
parent
commit
bc727f9fb2
1 changed files with 17 additions and 0 deletions
  1. 17 0
      compiler/ogwasm.pas

+ 17 - 0
compiler/ogwasm.pas

@@ -180,6 +180,13 @@ interface
         destructor destroy;override;
       end;
 
+      { TWasmObjInput }
+
+      TWasmObjInput = class(TObjInput)
+      public
+        constructor create;override;
+      end;
+
       { TWasmAssembler }
 
       TWasmAssembler = class(tinternalassembler)
@@ -2082,6 +2089,16 @@ implementation
         inherited destroy;
       end;
 
+{****************************************************************************
+                               TWasmObjInput
+****************************************************************************}
+
+    constructor TWasmObjInput.create;
+      begin
+        inherited create;
+        cobjdata:=TWasmObjData;
+      end;
+
 {****************************************************************************
                                TWasmAssembler
 ****************************************************************************}