* Add performance.now API to timer APIs

packages/wasm-utils/src/wasm.pas2js.timer.pas

@@ -26,6 +26,7 @@ Type
   private
     function AllocateTimer(ainterval: longint; userdata: TWasmPointer): TWasmTimerID;
     procedure DeallocateTimer(timerid: TWasmTimerID);
+    function PerformanceNow(aNow : TWasmPointer) : Longint;
     function GetLogApiCalls: Boolean;
     procedure SetLogApiCalls(AValue: Boolean);
   Protected
@@ -68,6 +69,7 @@ procedure TWasmTimerAPI.FillImportObject(aObject: TJSObject);
 begin
   aObject[TimerFN_Allocate]:=@AllocateTimer;
   aObject[TimerFN_DeAllocate]:=@DeAllocateTimer;
+  aObject[TimerFN_Performance_Now]:=@PerformanceNow;
 end;
 
 
@@ -134,6 +136,19 @@ begin
   {$endif}
 end;
 
+function TWasmTimerAPI.PerformanceNow(aNow: TWasmPointer): Longint;
+
+begin
+  if assigned(self_.Performance) then
+    begin
+    env.SetMemInfoFloat64(aNow,self_.Performance.Now);
+    Result:=ETIMER_SUCCESS;
+    end
+  else
+    Result:=ETIMER_NOPERFORMANCE;
+
+end;
+
 function TWasmTimerAPI.GetLogApiCalls: Boolean;
 begin
   Result:=LogAPI;

packages/wasm-utils/src/wasm.timer.shared.pas

@@ -7,11 +7,16 @@ interface
 Type
   TWasmTimerID = Longint;
 
-const
+Const
+  ETIMER_SUCCESS       = 0;
+  ETIMER_NOPERFORMANCE = -1;
+
   TimerExportName  = 'timer';
   TimerFN_Allocate = 'allocate_timer';
   TimerFN_DeAllocate = 'deallocate_timer';
 
+  TimerFN_Performance_Now = 'timer_performance_now';
+
 
 implementation