paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 16:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly threads internal linker: use signed LEB when needed in TWasmExeOutput.GenerateCode_InitTls and TWasmExeOutput.GenerateCode_InitSharedMemory

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-11 02:55:15 +03:00
parent 2e2281387c
commit f81485a9b1
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogwasm.pas
View File

@ -5585,7 +5585,7 @@ implementation
begin
{ i32.const $OffsetInTls }
Sec.writeUInt8($41);
WriteUleb(Sec,OffsetInTls);
WriteSleb(Sec,Int32(OffsetInTls));
{ i32.add }
Sec.writeUInt8($6A);
end;
@ -5624,7 +5624,7 @@ implementation
{ i32.const $InitFlag }
Sec.writeUInt8($41);
WriteUleb(sec,InitFlagOfs);
WriteSleb(sec,InitFlagOfs);
{ i32.const 0 }
Sec.writeUInt16BE($4100);
{ i32.const 1 }
@ -5645,12 +5645,12 @@ implementation
Inc(DataSecIdx);
{ i32.const $memPos }
Sec.writeUInt8($41);
WriteUleb(sec,ExeSec.MemPos);
WriteSleb(sec,Int32(ExeSec.MemPos));
{ i32.const 0 }
Sec.writeUInt16BE($4100);
{ i32.const size }
Sec.writeUInt8($41);
WriteUleb(sec,ExeSec.Size);
WriteSleb(sec,Int32(ExeSec.Size));
{ memory.init $DataSecIdx 0 }
Sec.writeUInt16BE($fc08);
WriteUleb(sec,DataSecIdx);
@ -5660,14 +5660,14 @@ implementation
{ i32.const $InitFlag }
Sec.writeUInt8($41);
WriteUleb(sec,InitFlagOfs);
WriteSleb(sec,InitFlagOfs);
{ i32.const 2 }
Sec.writeUInt16BE($4102);
{ i32.atomic.store 2 0 }
Sec.writeUInt32BE($fe170200);
{ i32.const $InitFlag }
Sec.writeUInt8($41);
WriteUleb(sec,InitFlagOfs);
WriteSleb(sec,InitFlagOfs);
{ i32.const 4294967295 }
Sec.writeUInt16BE($417f);
{ memory.atomic.notify 2 0 }
@ -5678,7 +5678,7 @@ implementation
Sec.writeUInt8($0B);
{ i32.const $InitFlag }
Sec.writeUInt8($41);
WriteUleb(sec,InitFlagOfs);
WriteSleb(sec,InitFlagOfs);
{ i32.const 1 }
Sec.writeUInt16BE($4101);
{ i64.const -1 }