paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:29:27 +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;
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),

4
compiler/ncgcal.pas
View File

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

3
compiler/ncginl.pas
View File

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

2
compiler/psystem.pas
View File

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