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

+ implemented TWasmExeOutput.GenerateLibraryImports

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-31 21:04:04 +02:00
parent b88b8efbce
commit 541bd66a6c
1 changed files with 26 additions and 0 deletions

26
compiler/ogwasm.pas
View File

@ -227,6 +227,7 @@ interface
public
constructor create;override;
destructor destroy;override;
procedure GenerateLibraryImports(ImportLibraryList:TFPHashObjectList);override;
end;
{ TWasmAssembler }
@ -4034,6 +4035,31 @@ implementation
inherited destroy;
end;
procedure TWasmExeOutput.GenerateLibraryImports(ImportLibraryList: TFPHashObjectList);
var
i, j: Integer;
ImportLibrary: TImportLibrary;
ImportSymbol: TImportSymbol;
exesym: TExeSymbol;
begin
for i:=0 to ImportLibraryList.Count-1 do
begin
ImportLibrary:=TImportLibrary(ImportLibraryList[i]);
for j:=0 to ImportLibrary.ImportSymbolList.Count-1 do
begin
ImportSymbol:=TImportSymbol(ImportLibrary.ImportSymbolList[j]);
exesym:=TExeSymbol(ExeSymbolList.Find(ImportSymbol.MangledName));
if assigned(exesym) and
(exesym.State<>symstate_defined) then
begin
ImportSymbol.CachedExeSymbol:=exesym;
exesym.State:=symstate_defined;
end;
end;
end;
PackUnresolvedExeSymbols('after module imports');
end;
{****************************************************************************
TWasmAssembler