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

* fix compiling binaries on JVM: the entries list contains pinitfinalentry values, not tused_unit

Browse Source
This commit is contained in:
Sven/Sarah Barth 2025-01-10 22:59:55 +01:00
parent 1202b2612f
commit 366acce9ef
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/jvm/njvmutil.pas
View File

@ -390,35 +390,33 @@ implementation
class procedure tjvmnodeutils.insert_init_final_table(main: tmodule; entries:tfplist);
var
hp : tused_unit;
unitinits : TAsmList;
unitclassname: string;
mainpsym: tsym;
mainpd: tprocdef;
m : tmodule;
i : integer;
entry : pinitfinalentry;
begin
unitinits:=TAsmList.Create;
for I:=0 to entries.Count-1 do
begin
hp:=tused_unit(entries[i]);
m:=hp.u;
entry:=pinitfinalentry(entries[i]);
{ class constructors are automatically handled by the JVM }
{ for non-main module, call the unit init code and make it external }
if (m<>main) and ((m.moduleflags*[mf_init,mf_finalize])<>[]) then
if (entry^.module<>main) and ((entry^.initfunc<>'') or (entry^.finifunc<>'')) then
begin
{ trigger init code by referencing the class representing the
unit; if necessary, it will register the fini code to run on
exit}
unitclassname:='';
if assigned(hp.u.namespace) then
if assigned(entry^.module.namespace) then
begin
unitclassname:=hp.u.namespace^+'/';
unitclassname:=entry^.module.namespace^+'/';
replace(unitclassname,'.','/');
end;
unitclassname:=unitclassname+hp.u.realmodulename^;
unitclassname:=unitclassname+entry^.module.realmodulename^;
unitinits.concat(taicpu.op_sym(a_new,current_asmdata.RefAsmSymbol(unitclassname,AT_METADATA)));
unitinits.concat(taicpu.op_none(a_pop));
end;