* removed all remaining nounsupported ifdefs (except for the one about

    variants)

git-svn-id: branches/jvmbackend@18770 -

compiler/ncal.pas

@@ -1710,12 +1710,6 @@ implementation
 
     function tcallnode.gen_procvar_context_tree:tnode;
       begin
-{$ifdef jvm}
-{$ifndef nounsupported}
-        result:=cnilnode.create;
-        exit;
-{$endif}
-{$endif}
         { Load tmehodpointer(right).self (either self or parentfp) }
         result:=genloadfield(ctypeconvnode.create_internal(
           right.getcopy,methodpointertype),

compiler/ncgcal.pas

@@ -870,7 +870,6 @@ implementation
          else
            { now procedure variable case }
            begin
-{$if defined(nounsupported) or not defined(jvm)}
               secondpass(right);
 
               pvreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_ADDR);
@@ -880,7 +879,6 @@ implementation
               else
                 cg.a_load_loc_reg(current_asmdata.CurrAsmList,OS_ADDR,right.location,pvreg);
               location_freetemp(current_asmdata.CurrAsmList,right.location);
-{$endif defined(nounsupported) or not defined(jvm)}
 
               { Load parameters that are in temporary registers in the
                 correct parameter register }
@@ -891,7 +889,6 @@ implementation
                   freeparas;
                 end;
 
-{$if defined(nounsupported) or not defined(jvm)}
               cg.alloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,regs_to_save_int);
               if cg.uses_registers(R_FPUREGISTER) then
                 cg.alloccpuregisters(current_asmdata.CurrAsmList,R_FPUREGISTER,regs_to_save_fpu);
@@ -904,7 +901,6 @@ implementation
                 extra_interrupt_code;
               extra_call_code;
               cg.a_call_reg(current_asmdata.CurrAsmList,pvreg);
-{$endif defined(nounsupported) or not defined(jvm)}
               extra_post_call_code;
            end;
 

compiler/ncginl.pas

@@ -531,9 +531,6 @@ implementation
         var
           setpara, elepara: tnode;
         begin
-{$if defined(jvm) and not defined(nounsupported)}
-          exit;
-{$endif}
           { the set }
           secondpass(tcallparanode(left).left);
           { the element to set }

compiler/psystem.pas

@@ -477,9 +477,7 @@ implementation
           end;
         loadtype('variant',cvarianttype);
         loadtype('olevariant',colevarianttype);
-{$if defined(nounsupported) or not defined(jvm)}
         if not(target_info.system in systems_managed_vm) then
-{$endif}
           loadtype('methodpointer',methodpointertype);
         loadtype('HRESULT',hresultdef);
 {$ifdef cpu64bitaddr}