paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 10:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* WebAssembly threads internal linker: declare the symbol __wasm_init_tls in the

Browse Source 
.text section (function will be generated later by the linker)
This commit is contained in:
Nikolay Nikolov 2024-08-10 19:59:06 +03:00
parent a87481cfa4
commit 0642f14552
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/systems/t_wasi.pas
View File

@ -345,11 +345,20 @@ begin
is important to keep the sections grouped, and keep the first section in is important to keep the sections grouped, and keep the first section in
each group intact (otherwise, TWasmExeOutput.MemPos_ExeSection in ogwasm.pas each group intact (otherwise, TWasmExeOutput.MemPos_ExeSection in ogwasm.pas
needs to be updated) } needs to be updated) }
{ tags (used by WebAssembly native exceptions) }
ScriptAddGenericSections('.wasm_tags');
{ code }
if ts_wasm_threads in current_settings.targetswitches then
begin
linkscript.Concat('EXESECTION .text');
linkscript.Concat(' OBJSECTION .text*');
{ functions, generated by the linker: }
linkscript.Concat(' SYMBOL __wasm_init_tls');
linkscript.Concat('ENDEXESECTION');
end
else
ScriptAddGenericSections('.text');
ScriptAddGenericSections( ScriptAddGenericSections(
{ tags (used by WebAssembly native exceptions) }
'.wasm_tags,'+
{ code }
'.text,'+
{ data (initialized data first, uninitialized data later) } { data (initialized data first, uninitialized data later) }
'.rodata,.data,fpc.resources,fpc.reshandles,.bss,'+ '.rodata,.data,fpc.resources,fpc.reshandles,.bss,'+
{ debug info } { debug info }