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

* WebAssembly threads internal linker: introduced TWasmObjSymbol.TlsDataSym

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-11 00:15:20 +03:00
parent 0d5dd4196f
commit a441d8ff28
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogwasm.pas
View File

@ -85,6 +85,7 @@ interface
ExtraData: TWasmObjSymbolExtraData;
LinkingData: TWasmObjSymbolLinkingData;
TlsGlobalSym: TWasmObjSymbol;
TlsDataSym: TWasmObjSymbol;
constructor create(AList:TFPHashObjectList;const AName:string);override;
destructor Destroy;override;
function IsAlias: Boolean;
@ -4245,6 +4246,7 @@ implementation
begin
objsym.typ:=AT_TLS;
objsym.TlsGlobalSym:=TWasmObjSymbol(ObjData.CreateSymbol('GOT.mem.'+SymName));
objsym.TlsGlobalSym.TlsDataSym:=objsym;
objsym.TlsGlobalSym.bind:=AB_EXTERNAL;
objsym.TlsGlobalSym.typ:=AT_WASM_GLOBAL;
objsym.TlsGlobalSym.objsection:=nil;
@ -4269,6 +4271,7 @@ implementation
begin
objsym.typ:=AT_TLS;
objsym.TlsGlobalSym:=TWasmObjSymbol(ObjData.CreateSymbol('GOT.mem.'+SymName));
objsym.TlsGlobalSym.TlsDataSym:=objsym;
objsym.TlsGlobalSym.bind:=objsym.bind;
objsym.TlsGlobalSym.typ:=AT_WASM_GLOBAL;
objsym.TlsGlobalSym.objsection:=ObjData.createsection('.wasm_globals.n_'+objsym.TlsGlobalSym.Name,1,[oso_Data,oso_load],true);