paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogwasm.pas
View File

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