|
@@ -50,7 +50,9 @@ implementation
|
|
|
node,nld,nmem,ncon,ncnv,ncal,
|
|
|
fmodule,scanner,
|
|
|
pbase,pexpr,pdecsub,pdecvar,ptype,pdecl,ppu,
|
|
|
+{$ifdef jvm}
|
|
|
pjvm,
|
|
|
+{$endif}
|
|
|
parabase
|
|
|
;
|
|
|
|
|
@@ -1393,7 +1395,9 @@ implementation
|
|
|
if is_javaclass(current_structdef) then
|
|
|
begin
|
|
|
add_missing_parent_constructors_intf(tobjectdef(current_structdef),vis_none);
|
|
|
+{$ifdef jvm}
|
|
|
maybe_add_public_default_java_constructor(tobjectdef(current_structdef));
|
|
|
+{$endif}
|
|
|
end;
|
|
|
{ need method to hold the initialization code for typed constants? }
|
|
|
if (target_info.system in systems_typed_constants_node_init) and
|