From 118e093c974d3b3407976d602a93192f668e815c Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Thu, 28 Dec 2023 20:59:32 +0200
Subject: [PATCH] + create relocation objects for R_WASM_TABLE_INDEX_I32
 relocations in the wasm object reader

---
 compiler/ogwasm.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index e389464a33..2bce31a214 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -3837,6 +3837,18 @@ implementation
                       else
                         Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
                     end;
+                  R_WASM_TABLE_INDEX_I32:
+                    begin
+                      if RelocIndex>high(SymbolTable) then
+                        begin
+                          InputError('Symbol index in relocation too high');
+                          exit;
+                        end;
+                      if Assigned(SymbolTable[RelocIndex].ObjSym) then
+                        ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE))
+                      else
+                        Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
+                    end;
                 end;
               end;