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

* fixed some ancient code behind cpu_uses_separate_address_registers define to at least compile again, for some m68k experiment

Browse Source 
git-svn-id: trunk@30130 -
This commit is contained in:
Károly Balogh 2015-03-07 22:11:43 +00:00
parent ffd03563d0
commit 0021ad714f
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/ncgcnv.pas
View File

@ -364,7 +364,7 @@ interface
{$ifdef cpu_uses_separate_address_registers}
if getregtype(left.location.register)<>R_ADDRESSREGISTER then
begin
location.reference.base:=rg.getaddressregister(current_asmdata.CurrAsmList);
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,
left.location.register,location.reference.base);
end

2
compiler/ncgmem.pas
View File

@ -348,7 +348,7 @@ implementation
{$ifdef cpu_uses_separate_address_registers}
if getregtype(left.location.register)<>R_ADDRESSREGISTER then
begin
location.reference.base:=rg.getaddressregister(current_asmdata.CurrAsmList);
location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
hlcg.a_load_reg_reg(current_asmdata.CurrAsmList,left.resultdef,left.resultdef,
left.location.register,location.reference.base);
end

2
compiler/ncgutil.pas
View File

@ -1906,7 +1906,7 @@ implementation
LOC_REGISTER:
begin
{$ifdef cpu_uses_separate_address_registers}
if getregtype(left.location.register)<>R_ADDRESSREGISTER then
if getregtype(selfloc.register)<>R_ADDRESSREGISTER then
begin
reference_reset_base(href,cg.getaddressregister(list),objdef.vmt_offset,sizeof(pint));
cg.a_load_reg_reg(list,OS_ADDR,OS_ADDR,selfloc.register,href.base);