Browse Source

* Auto-register APIs

Michael Van Canneyt 4 months ago
parent
commit
6f8ea92d86

+ 8 - 0
packages/wasm-utils/src/wasm.pas2js.memutils.pas

@@ -19,6 +19,7 @@ type
   Public
     procedure FillImportObject(aObject: TJSObject); override;
     function ImportName: String; override;
+    class function RegisterName : string; override;
     property OnMemoryGrow : TMemoryGrowHandler Read FOnMemoryGrow Write FOnMemoryGrow;
   end;
 
@@ -42,5 +43,12 @@ begin
   Result:='wasmmem';
 end;
 
+class function TWasiMemUtils.RegisterName: string;
+begin
+  Result:='MemUtils';
+end;
+
+initialization
+  TWasiMemUtils.Register;
 end.
 

+ 7 - 0
packages/wasm-utils/src/wasm.pas2js.regexp.pas

@@ -84,6 +84,7 @@ Type
     constructor Create(aEnv: TPas2JSWASIEnvironment); override;
     procedure FillImportObject(aObject: TJSObject); override;
     function ImportName: String; override;
+    class function RegisterName : string; override;
     Property LogAPICalls : Boolean Read GetLogAPICalls Write SetLogAPICalls;
   end;
 
@@ -655,8 +656,14 @@ end;
 function TWasmRegExpAPI.ImportName: String;
 begin
   Result:=regexpExportName;
+end;
 
+class function TWasmRegExpAPI.RegisterName: string;
+begin
+  Result:='RegExp';
 end;
 
+initialization
+  TWasmRegExpAPI.Register;
 end.