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

+ write the import function indexes in the linker map file

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 13:13:48 +02:00
parent 1c1dbaf776
commit 409de5ac96
1 changed files with 2 additions and 2 deletions

4
compiler/ogwasm.pas
View File

@ -4216,10 +4216,10 @@ implementation
function AddFunctionImport(const libname,symname:TCmdStr; functype: TWasmFuncType): Integer;
begin
if assigned(exemap) then
exemap.Add(' Importing Function ' + symname + functype.ToString);
SetLength(FFunctionImports,Length(FFunctionImports)+1);
Result:=High(FFunctionImports);
if assigned(exemap) then
exemap.Add(' Importing Function[' + tostr(Result) + '] ' + symname + functype.ToString);
with FFunctionImports[Result] do
begin
ModName:=libname;