paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-13 10:39:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Webassembly shared buffer & IsSharedBuffer

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-04-18 09:47:43 +02:00
parent 7137a54cf2
commit 329b963c80
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/rtl/src/webassembly.pas
View File

@ -41,11 +41,19 @@ Type
TJSWebAssemblyMemory = class external name 'WebAssembly.Memory' (TJSObject)
private
FBuffer: TJSArrayBuffer; external name 'buffer';
FSharedBuffer: TJSSharedArrayBuffer; external name 'buffer';
Public
constructor new (memorydescriptor : TJSWebAssemblyMemoryDescriptor);
constructor new (memorydescriptor : TJSObject);
Function grow(number : NativeInt) : NativeInt; external name 'grow';
Property buffer : TJSArrayBuffer Read FBuffer;
Property Sharedbuffer : TJSSharedArrayBuffer Read FSharedBuffer;
end;
{ TJSWebAssemblyMemoryHelper }
TJSWebAssemblyMemoryHelper = class helper for TJSWebAssemblyMemory
function IsSharedBuffer : Boolean;
end;
{ TJSModulesArray }
@ -129,5 +137,15 @@ Type
implementation
{ TJSWebAssemblyMemoryHelper }
function TJSWebAssemblyMemoryHelper.IsSharedBuffer: Boolean;
begin
asm
return ((!(buffer === null)) && (typeof this.FBuffer === 'object'))
&& (this.FBuffer instanceof SharedArrayBuffer);
end;
end;
end.