Michael Van Canneyt преди 4 месеца
родител
ревизия
6f8ea92d86
променени са 2 файла, в които са добавени 15 реда и са изтрити 0 реда
  1. 8 0
      packages/wasm-utils/src/wasm.pas2js.memutils.pas
  2. 7 0
      packages/wasm-utils/src/wasm.pas2js.regexp.pas

+ 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.