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

+ write procdef for imports

Browse Source 
git-svn-id: branches/wasm@47001 -
This commit is contained in:
nickysn 2020-09-29 00:16:10 +00:00
parent fe4f041436
commit da5c9a978e
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/wasm32/agllvmmc.pas
View File

@ -63,6 +63,7 @@ implementation
fmodule,finput,
itcpugas,
cpubase,
hlcgobj,hlcgcpu,
verbose;
{ TLLVMMachineCodePlaygroundAssembler }
@ -114,9 +115,10 @@ implementation
procedure TLLVMMachineCodePlaygroundAssembler.WriteImports;
var
i : integer;
proc : tprocdef;
var
i : integer;
proc : tprocdef;
list : TAsmList;
begin
for i:=0 to current_module.deflist.Count-1 do
if tdef(current_module.deflist[i]).typ = procdef then
@ -124,7 +126,11 @@ implementation
proc := tprocdef(current_module.deflist[i]);
if (po_external in proc.procoptions) and assigned(proc.import_dll) then
begin
WriteProcDef(proc);
//WriteProcDef(proc);
list:=TAsmList.Create;
thlcgwasm(hlcg).g_procdef(list,proc);
WriteTree(list);
list.free;
writer.AsmWrite(#9'.import_module'#9);
writer.AsmWrite(proc.mangledname);
writer.AsmWrite(', ');