Pārlūkot izejas kodu

* ifdefed pjvm usage

git-svn-id: branches/jvmbackend@18640 -
Jonas Maebe 14 gadi atpakaļ
vecāks
revīzija
bd9e0b1a45
1 mainītis faili ar 4 papildinājumiem un 0 dzēšanām
  1. 4 0
      compiler/pdecobj.pas

+ 4 - 0
compiler/pdecobj.pas

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