From ef7f2ab5a7aa65dbac4cfd06192faf5594c59b52 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sat, 15 Feb 2025 23:29:20 +0200
Subject: [PATCH] + WebAssembly internal linker: write the import section in
 the linker map file

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

diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index 2a925d7edf..f93079ea74 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -4850,6 +4850,8 @@ implementation
           memory_imports: SizeInt;
           i: Integer;
         begin
+          if assigned(exemap) then
+            exemap.AddHeader('Import section');
           if ts_wasm_threads in current_settings.targetswitches then
             memory_imports:=1
           else
@@ -4864,6 +4866,8 @@ implementation
               WriteByte(FWasmSections[wsiImport],$03);  { shared }
               WriteUleb(FWasmSections[wsiImport],FMinMemoryPages);
               WriteUleb(FWasmSections[wsiImport],Max(FMinMemoryPages,FMaxMemoryPages));  { max pages }
+              if assigned(exemap) then
+                exemap.Add('  Memory[0] pages: initial='+tostr(FMinMemoryPages)+' max='+tostr(Max(FMinMemoryPages,FMaxMemoryPages))+' shared <- env.memory');
             end;
           for i:=0 to Length(FFunctionImports)-1 do
             with FFunctionImports[i] do
@@ -4872,6 +4876,8 @@ implementation
                 WriteName(FWasmSections[wsiImport],Name);
                 WriteByte(FWasmSections[wsiImport],$00);  { func }
                 WriteUleb(FWasmSections[wsiImport],TypeIdx);
+                if assigned(exemap) then
+                  exemap.Add('  Function['+tostr(i)+'] sig='+tostr(TypeIdx)+' <- '+ModName+'.'+Name);
               end;
         end;