|
@@ -173,6 +173,7 @@ implementation
|
|
thlcgwasm(hlcg).g_procdef(list,proc);
|
|
thlcgwasm(hlcg).g_procdef(list,proc);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
+ create_hlcodegen;
|
|
InsertModuleInfo(list,current_module);
|
|
InsertModuleInfo(list,current_module);
|
|
cur_unit:=tused_unit(usedunits.First);
|
|
cur_unit:=tused_unit(usedunits.First);
|
|
while assigned(cur_unit) do
|
|
while assigned(cur_unit) do
|
|
@@ -180,6 +181,7 @@ implementation
|
|
InsertModuleInfo(list,cur_unit.u);
|
|
InsertModuleInfo(list,cur_unit.u);
|
|
cur_unit:=tused_unit(cur_unit.Next);
|
|
cur_unit:=tused_unit(cur_unit.Next);
|
|
end;
|
|
end;
|
|
|
|
+ destroy_hlcodegen;
|
|
|
|
|
|
modules.Free;
|
|
modules.Free;
|
|
end;
|
|
end;
|