paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disable cg64/cg128 special cases for high level targets

Browse Source 
git-svn-id: branches/hlcgllvm@28365 -
This commit is contained in:
Jonas Maebe 2014-08-10 19:40:00 +00:00
parent 6ab2c00ac6
commit ac02c92a0d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgld.pas
View File

@ -744,6 +744,7 @@ implementation
LOC_REGISTER, LOC_REGISTER,
LOC_CREGISTER : LOC_CREGISTER :
begin begin
{$ifndef cpuhighleveltarget}
{$ifdef cpu64bitalu} {$ifdef cpu64bitalu}
if left.location.size in [OS_128,OS_S128] then if left.location.size in [OS_128,OS_S128] then
cg128.a_load128_ref_reg(current_asmdata.CurrAsmList,right.location.reference,left.location.register128) cg128.a_load128_ref_reg(current_asmdata.CurrAsmList,right.location.reference,left.location.register128)
@ -753,6 +754,7 @@ implementation
cg64.a_load64_ref_reg(current_asmdata.CurrAsmList,right.location.reference,left.location.register64) cg64.a_load64_ref_reg(current_asmdata.CurrAsmList,right.location.reference,left.location.register64)
else else
{$endif cpu64bitalu} {$endif cpu64bitalu}
{$endif not cpuhighleveltarget}
hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,right.resultdef,left.resultdef,right.location.reference,left.location.register); hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,right.resultdef,left.resultdef,right.location.reference,left.location.register);
end; end;
LOC_FPUREGISTER, LOC_FPUREGISTER,
@ -875,6 +877,7 @@ implementation
LOC_REGISTER, LOC_REGISTER,
LOC_CREGISTER : LOC_CREGISTER :
begin begin
{$ifndef cpuhighleveltarget}
{$ifdef cpu64bitalu} {$ifdef cpu64bitalu}
if left.location.size in [OS_128,OS_S128] then if left.location.size in [OS_128,OS_S128] then
cg128.a_load128_reg_loc(current_asmdata.CurrAsmList, cg128.a_load128_reg_loc(current_asmdata.CurrAsmList,
@ -887,6 +890,7 @@ implementation
right.location.register64,left.location) right.location.register64,left.location)
else else
{$endif cpu64bitalu} {$endif cpu64bitalu}
{$endif not cpuhighleveltarget}
{$ifdef i8086} {$ifdef i8086}
{ prefer a_load_loc_ref, because it supports i8086-specific types { prefer a_load_loc_ref, because it supports i8086-specific types
that use registerhi (like 6-byte method pointers) that use registerhi (like 6-byte method pointers)
@ -1325,6 +1329,7 @@ implementation
end; end;
else else
begin begin
{$ifndef cpuhighleveltarget}
{$ifdef cpu64bitalu} {$ifdef cpu64bitalu}
if hp.left.location.size in [OS_128,OS_S128] then if hp.left.location.size in [OS_128,OS_S128] then
cg128.a_load128_loc_ref(current_asmdata.CurrAsmList,hp.left.location,href) cg128.a_load128_loc_ref(current_asmdata.CurrAsmList,hp.left.location,href)
@ -1334,6 +1339,7 @@ implementation
cg64.a_load64_loc_ref(current_asmdata.CurrAsmList,hp.left.location,href) cg64.a_load64_loc_ref(current_asmdata.CurrAsmList,hp.left.location,href)
else else
{$endif cpu64bitalu} {$endif cpu64bitalu}
{$endif not cpuhighleveltarget}
hlcg.a_load_loc_ref(current_asmdata.CurrAsmList,eledef,eledef,hp.left.location,href); hlcg.a_load_loc_ref(current_asmdata.CurrAsmList,eledef,eledef,hp.left.location,href);
end; end;
end; end;