paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 18:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
variants)

git-svn-id: branches/jvmbackend@18770 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:34:26 +00:00
parent d7cff1cd31
commit 1a23a7cd27
4 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncal.pas
View File

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

4
compiler/ncgcal.pas
View File

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

3
compiler/ncginl.pas
View File

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

2
compiler/psystem.pas
View File

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