+ introduced trefaddr.addr_got_tls, to be used for generating WebAssembly threadvar access, when WASM multithreading is turned on

compiler/cgbase.pas

@@ -143,6 +143,9 @@ interface
           ,addr_tpoff
           ,addr_tlsgd
 {$endif x86_64}
+{$ifdef wasm32}
+          ,addr_got_tls
+{$endif wasm32}
          );
 
 

compiler/wasm32/agllvmmc.pas

@@ -89,6 +89,7 @@ implementation
 
   uses
     cutils,
+    cgbase,
     fmodule,finput,
     itcpugas,
     cpubase,
@@ -166,7 +167,19 @@ implementation
 
     function getreferencestring(var ref : treference) : ansistring;
       begin
-        if assigned(ref.symbol) then
+        if ref.refaddr=addr_got_tls then
+          begin
+            if not assigned(ref.symbol) then
+              internalerror(2022071401);
+            if ref.base<>NR_NO then
+              internalerror(2022071402);
+            if ref.index<>NR_NO then
+              internalerror(2022071403);
+            if ref.offset<>0 then
+              internalerror(2022071404);
+            result:=ref.symbol.name+'@GOT@TLS';
+          end
+        else if assigned(ref.symbol) then
           begin
             // global symbol or field -> full type and name
             // ref.base can be <> NR_NO in case an instance field is loaded.