paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-21 01:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix to read unaligned bytes

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-21 09:44:48 +02:00
parent c78cdfcf40
commit 9aeffe4e80
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -955,11 +955,27 @@ var
var
Len, Ptr: TWasmNativeInt;
aWords: TJSUint16Array;
aRawBytes,
aBytes: TJSUint8Array;
begin
Len:=ReadWasmNativeInt;
Ptr:=ReadWasmNativeInt;
aWords:=TJSUint16Array.New(View.buffer, Ptr,Len);
Result:=DecodeUTF16Buffer(aWords);
if (Ptr mod 2)=0 then
begin
// Aligned, we can directly use the memory
aWords:=TJSUint16Array.New(View.buffer, Ptr,Len);
end
else
begin
// Unaligned, We cannot directly use the memory
// So create a uint8 buffer and copy using from.
aRawBytes:=TJSUint8Array.new(View.buffer, Ptr,Len*2);
// Hopefully aligned
aBytes:=TJSUint8Array.New(aRawBytes.Buffer);
// Reinterpret
aWords:=TJSUint16Array.New(aBytes.buffer);
end;
Result:=DecodeUTF16Buffer(aWords);
{$IFDEF VERBOSEJOB}
Writeln('ReadUnicodeString : ',Result);
{$ENDIF}