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

+ add functypes for the unit init and finalization code procedures

Browse Source 
git-svn-id: branches/wasm@48285 -
This commit is contained in:
nickysn 2021-01-21 22:12:15 +00:00
parent 4b6cbde849
commit 9908a9d82a
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/wasm32/agllvmmc.pas
View File

@ -95,24 +95,29 @@ implementation
writer.AsmWriteLn(proc.import_name^);
end;
end;
list:=TAsmList.Create;
cur_unit:=tused_unit(usedunits.First);
while assigned(cur_unit) do
begin
if (cur_unit.u.moduleflags * [mf_init,mf_finalize])<>[] then
begin
if mf_init in cur_unit.u.moduleflags then
list.Concat(tai_functype.create(make_mangledname('INIT$',cur_unit.u.globalsymtable,''),TWasmFuncType.Create([],[])));
if mf_finalize in cur_unit.u.moduleflags then
list.Concat(tai_functype.create(make_mangledname('FINALIZE$',cur_unit.u.globalsymtable,''),TWasmFuncType.Create([],[])));
end;
for i:=0 to cur_unit.u.deflist.Count-1 do
if assigned(cur_unit.u.deflist[i]) and (tdef(cur_unit.u.deflist[i]).typ = procdef) then
begin
proc := tprocdef(cur_unit.u.deflist[i]);
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
begin
list:=TAsmList.Create;
thlcgwasm(hlcg).g_procdef(list,proc);
WriteTree(list);
list.free;
end;
thlcgwasm(hlcg).g_procdef(list,proc);
end;
cur_unit:=tused_unit(cur_unit.Next);
end;
WriteTree(list);
list.free;
end;