From 2daf7f984f24ce54492ff8e1364592d705b0abe9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 5 Jun 2024 10:55:05 +0200
Subject: [PATCH] * Global memory object

---
 packages/wasm-job/src/job.js.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/packages/wasm-job/src/job.js.pas b/packages/wasm-job/src/job.js.pas
index 040b8661a6..8c3036c22a 100644
--- a/packages/wasm-job/src/job.js.pas
+++ b/packages/wasm-job/src/job.js.pas
@@ -6,7 +6,7 @@
   see https://wiki.freepascal.org/WebAssembly/DOM
 }
 {$IFNDEF FPC_DOTTEDUNITS}
-unit JOB.Js;
+unit job.js;
 {$ENDIF}
 
 {$mode ObjFPC}
@@ -753,6 +753,7 @@ type
 
   TJSUint8Array = class(TJSTypedArray,IJSUint8Array)
   public
+    Class function GetGlobal : TJSUint8Array;
     class function JSClassName: UnicodeString; override;
     class function Cast(const Intf: IJSObject): IJSUint8Array; overload;
   end;
@@ -1485,6 +1486,13 @@ end;
 
 { TJSUInt8Array }
 
+class function TJSUint8Array.GetGlobal: TJSUint8Array;
+begin
+  // We must free it.
+  Result:=TJSUInt8Array.JOBCreateGlobal('InstanceMemory');
+  TJSUInt8Array(Result).FJOBObjectIDOwner:=True;
+end;
+
 class function TJSUint8Array.JSClassName: UnicodeString;
 begin
   Result:='Uint8Array';