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

* Take into account byteoffset/length

Browse Source
This commit is contained in:
Michael Van Canneyt 2025-02-06 15:54:30 +01:00
parent fa88ecbe08
commit bc95a7dc7f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl/src/js.pas
View File

@ -1495,13 +1495,18 @@ begin
end; end;
function SharedToNonShared(aArray : TJSTypedArray; aWordSized : Boolean = False): TJSTypedArray; function SharedToNonShared(aArray : TJSTypedArray; aWordSized : Boolean = False): TJSTypedArray;
var
Buf : TJSSharedArrayBuffer;
begin begin
if HaveSharedArrayBuffer and (aArray.bufferObj is TJSSharedArrayBuffer) then if HaveSharedArrayBuffer and (aArray.bufferObj is TJSSharedArrayBuffer) then
begin
Buf:=TJSSharedArrayBuffer(aArray.bufferObj).slice(aArray.byteOffset,aArray.byteLength);
if aWordSized then if aWordSized then
Result:=TJSUInt16Array.New(SharedToNonShared(aArray.bufferObj)) Result:=TJSUInt16Array.New(SharedToNonShared(Buf))
else else
Result:=TJSUInt8Array.New(SharedToNonShared(aArray.bufferObj)) Result:=TJSUInt8Array.New(SharedToNonShared(Buf))
end
else else
Result:=aArray; Result:=aArray;
end; end;