paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 14:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Global memory object

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-06-05 10:55:05 +02:00
parent 50370ff56d
commit 2daf7f984f
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/wasm-job/src/job.js.pas
View File

@ -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';