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

* WebAssembly threads: don't do anything in TWasmExeOutput.SetThreadVarGlobalsInitValues

Browse Source 
and TWasmExeOutput.GenerateCode_InitTls if threads are disabled
This commit is contained in:
Nikolay Nikolov 2024-08-11 00:12:32 +03:00
parent 334ef633a8
commit 0d5dd4196f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogwasm.pas
View File

@ -5434,6 +5434,8 @@ implementation
objsec: TWasmObjSection;
objsym: TWasmObjSymbol;
begin
if not (ts_wasm_threads in current_settings.targetswitches) then
exit;
exesec:=FindExeSection('.wasm_globals');
if not assigned(exesec) then
internalerror(2024010112);
@ -5449,6 +5451,8 @@ implementation
var
a: Byte=0;
begin
if not (ts_wasm_threads in current_settings.targetswitches) then
exit;
FInitTlsFunctionSym.objsection.SecOptions:=FInitTlsFunctionSym.objsection.SecOptions+[oso_Data];
FInitTlsFunctionSym.objsection.write(a,1);
end;