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

* TLLVMMachineCodePlaygroundAssembler.WriteImports now uses just a single TAsmList

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-25 00:00:51 +03:00
parent f56aa9abe7
commit d19919aa13
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/wasm32/agllvmmc.pas
View File

@ -69,16 +69,11 @@ implementation
procedure TLLVMMachineCodePlaygroundAssembler.WriteImports;
procedure WriteImportDll(proc: tprocdef);
var
list : TAsmList;
procedure WriteImportDll(list: TAsmList; proc: tprocdef);
begin
list:=TAsmList.Create;
thlcgwasm(hlcg).g_procdef(list,proc);
list.Concat(tai_import_module.create(proc.mangledname,proc.import_dll^));
list.Concat(tai_import_name.create(proc.mangledname,proc.import_name^));
WriteTree(list);
list.free;
end;
var
@ -88,6 +83,7 @@ implementation
list : TAsmList;
cur_unit: tused_unit;
begin
list:=TAsmList.Create;
for i:=0 to current_module.deflist.Count-1 do
begin
def:=tdef(current_module.deflist[i]);
@ -96,10 +92,9 @@ implementation
begin
proc := tprocdef(def);
if (po_external in proc.procoptions) and (po_has_importdll in proc.procoptions) then
WriteImportDll(proc);
WriteImportDll(list,proc);
end;
end;
list:=TAsmList.Create;
cur_unit:=tused_unit(usedunits.First);
while assigned(cur_unit) do
begin
@ -117,7 +112,7 @@ implementation
begin
proc := tprocdef(def);
if (po_external in proc.procoptions) and (po_has_importdll in proc.procoptions) then
WriteImportDll(proc)
WriteImportDll(list,proc)
else if (not proc.owner.iscurrentunit or (po_external in proc.procoptions)) and
((proc.paras.Count=0) or (proc.has_paraloc_info in [callerside,callbothsides])) then
thlcgwasm(hlcg).g_procdef(list,proc);