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

* removed a_call_reg hack, not needed after peter's latest fix

Browse Source 
git-svn-id: trunk@9130 -
This commit is contained in:
Károly Balogh 2007-11-04 15:27:31 +00:00
parent 911f926274
commit 8674e35f45
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/cgcpu.pas
View File

@ -472,14 +472,9 @@ unit cgcpu;
else
begin
{ if we have a data register, we need to move it to an address register first }
{ ... anyone with a clue why this doesn't work with a tmpreg?
results in code like: move.l d0,a0; jsr (a1); ... which is bad(tm) (KB) }
{ tmpreg:=getaddressregister(list);
tmpreg:=getaddressregister(list);
reference_reset_base(tmpref,tmpreg,0);
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,reg,tmpreg));
}
reference_reset_base(tmpref,NR_A0,0);
list.concat(taicpu.op_reg_reg(A_MOVE,S_L,reg,NR_A0));
end;
list.concat(taicpu.op_ref(A_JSR,S_NO,tmpref));
end;