paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 17:48:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add a second handling of NIL entries in deflist

Browse Source 
git-svn-id: trunk@49270 -
This commit is contained in:
pierre 2021-04-26 21:12:02 +00:00
parent db02c7c85a
commit 570af33fa9
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/wasm32/agllvmmc.pas
View File

@ -112,13 +112,16 @@ implementation
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
thlcgwasm(hlcg).g_procdef(list,proc);
end;
begin
def:=tdef(cur_unit.u.deflist[i]);
if assigned(def) and (tdef(def).typ = procdef) then
begin
proc := tprocdef(def);
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);
end;
end;
cur_unit:=tused_unit(cur_unit.Next);
end;
WriteTree(list);