Переглянути джерело

* ifdefed pjvm usage

git-svn-id: branches/jvmbackend@18640 -
Jonas Maebe 14 роки тому
батько
коміт
bd9e0b1a45
1 змінених файлів з 4 додано та 0 видалено
  1. 4 0
      compiler/pdecobj.pas

+ 4 - 0
compiler/pdecobj.pas

@@ -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