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

* Allow to access webassembly memory as Uint8Array

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-06-05 10:57:24 +02:00
parent b7553d1abf
commit 13742a5375
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/job/src/job_browser.pp
View File

@ -268,9 +268,15 @@ end;
function TJSObjectBridge.FindGlobalObject(const aName: string): TJOBObjectID;
begin
if not FGlobalNames.hasOwnProperty(aName) then
exit(0);
Result:=NativeInt(FGlobalNames[aName]);
// this one is special, it needs to be re-registered every time
if aName='InstanceMemory' then
Exit(RegisterLocalObject(TJSUint8Array.New(getModuleMemoryDataView.buffer)));
else
begin
if not FGlobalNames.hasOwnProperty(aName) then
exit(0);
Result:=NativeInt(FGlobalNames[aName]);
end;
end;
function TJSObjectBridge.RegisterLocalObject(Obj: TJSObject): TJOBObjectID;