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

* Allow to set size when

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-09-17 10:43:38 +02:00
parent a88f985230
commit d0b339ff89
2 changed files with 39 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,7 +82,8 @@ Type
FDecoderUTF16 : TJSTextDecoder;
FDecoderUTF8 : TJSTextDecoder;
function GetObjectConstructor(aObjectName: String): TJSFunction;
procedure SetMemFromArray(ObjId: TJOBObjectID; Mem: TWasmPointer);
procedure SetArrayFromMem(ObjId: TJOBObjectID; Mem: TWasmPointer; aMaxLen: NativeInt);
procedure SetMemFromArray(ObjId: TJOBObjectID; Mem: TWasmPointer; aMaxLen: NativeInt);
Protected
procedure SetInstanceExports(const AValue: TWasiExports); override;
function DecodeUTF16Buffer(Arr : TJSUint16Array) : String;
@ -268,6 +269,7 @@ begin
aObject[JOBFn_InvokeArrayStringResult]:=@Invoke_ArrayStringResult;
aObject[JOBFn_CreateObject]:=@Create_JSObject;
aObject[JOBFn_SetMemFromArray]:=@SetMemFromArray;
aObject[JOBFn_SetArrayFromMem]:=@SetArrayFromMem;
end;
function TJSObjectBridge.FindObject(ObjId: TJOBObjectID): TJSObject;
@ -356,7 +358,30 @@ begin
Result:=FDecoderUTF8.decode(Arr);
end;
procedure TJSObjectBridge.SetMemFromArray(ObjId: TJOBObjectID; Mem : TWasmPointer);
procedure TJSObjectBridge.SetArrayFromMem(ObjId: TJOBObjectID; Mem : TWasmPointer; aMaxLen : NativeInt);
{
JOB allocates memory do make a call.
As such, it is dangerous to call _set in the global memory,
since the memory object can have changed between the call to get
the globabl memory object and the call to set.
Using SetArrayFromMem will always use the correct webassembly memory.
}
var
obj : TJSObject;
Buf : TJSArrayBuffer;
Src,Dest : TJSUint8Array;
begin
Obj:=FindObject(ObjId);
if obj is TJSArrayBuffer then
Buf:=TJSArrayBuffer(Obj)
else
Buf:=TJSTypedArray(Obj).buffer;
Dest:=TJSUint8Array.New(Buf);
Src:=TJSUint8Array.New(getModuleMemoryDataView.buffer,Mem,aMaxLen);
Dest._set(Src,0);
end;
procedure TJSObjectBridge.SetMemFromArray(ObjId: TJOBObjectID; Mem : TWasmPointer; aMaxLen : NativeInt);
{
JOB allocates memory do make a call.
As such, it is dangerous to call _set in the global memory,
@ -367,17 +392,24 @@ procedure TJSObjectBridge.SetMemFromArray(ObjId: TJOBObjectID; Mem : TWasmPointe
var
obj : TJSObject;
Buf : TJSArrayBuffer;
Src,Dest : TJSUint8Array;
begin
Obj:=FindObject(ObjId);
// Get the actual buffer
if obj is TJSArrayBuffer then
Src:=TJSUint8Array.new(TJSArrayBuffer(obj))
Buf:=TJSArrayBuffer(Obj)
else
// We don't do any extra checks on the assumption that new() will do the check...
Src:=TJSUint8Array.new(TJSTypedArray(Obj).buffer);
Buf:=TJSTypedArray(Obj).buffer;
// Create typed buffer
if aMaxLen=0 then
Src:=TJSUint8Array.new(Buf)
else
Src:=TJSUint8Array.new(Buf,0,aMaxLen);
// Copy
Dest:=TJSUint8Array.New(getModuleMemoryDataView.buffer);
Dest._set(Src,mem);
Dest._set(Src,Mem);
end;
function TJSObjectBridge.Invoke_JSResult(ObjId: TJOBObjectID; NameP, NameLen,

1
packages/job/src/job_shared.pp
View File

@ -68,6 +68,7 @@ const
JOBFn_InvokeJSValueResult = 'invoke_jsvalueresult';
JOBFn_CallbackHandler = 'JOBCallback';
JOBFn_SetMemFromArray = 'set_mem_from_object';
JOBFn_SetArrayFromMem = 'set_object_from_mem';
JOBArgUndefined = 0;
JOBArgLongint = 1;