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

m68k: refactor - use the new CPUM68K_HAS_TSTAREG capability where applicable

Browse Source
This commit is contained in:
Karoly Balogh 2025-02-17 12:03:03 +01:00
parent e09304f671
commit 0730e86c9d
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/m68k/n68kadd.pas
View File

@ -525,7 +525,7 @@ implementation
else else
begin begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then if (not (CPUM68K_HAS_TSTAREG in cpu_capabilities[current_settings.cputype])) and isaddressregister(left.location.register) then
begin begin
tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,cmpsize); tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,cmpsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,cmpsize,left.location.register,tmpreg); cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,cmpsize,left.location.register,tmpreg);

2
compiler/m68k/n68kcnv.pas
View File

@ -276,7 +276,7 @@ implementation
end end
else else
begin begin
if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then if (not (CPUM68K_HAS_TSTAREG in cpu_capabilities[current_settings.cputype])) and isaddressregister(left.location.register) then
begin begin
hreg2:=cg.getintregister(current_asmdata.CurrAsmList,opsize); hreg2:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg2); cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg2);

2
compiler/m68k/n68kmat.pas
View File

@ -121,7 +121,7 @@ implementation
else else
begin begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,true); hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,resultdef,true);
if (current_settings.cputype = cpu_mc68000) and isaddressregister(left.location.register) then if (not (CPUM68K_HAS_TSTAREG in cpu_capabilities[current_settings.cputype])) and isaddressregister(left.location.register) then
begin begin
hreg:=cg.getintregister(current_asmdata.CurrAsmList,opsize); hreg:=cg.getintregister(current_asmdata.CurrAsmList,opsize);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg); cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,opsize,left.location.register,hreg);