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

+ WebAssembly internal linker: write the import section in the linker map file

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-02-15 23:29:20 +02:00
parent 9a223100d1
commit ef7f2ab5a7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogwasm.pas
View File

@ -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;