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

* allocate dedicated register for a_call_ref() to avoid problems with R0-usage on ppc64.

Browse Source 
git-svn-id: trunk@3439 -
This commit is contained in:
tom_at_work 2006-05-06 21:30:04 +00:00
parent 5b7ee799bb
commit 540af422ca
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ppcgen/cgppc.pas
View File

@ -44,11 +44,12 @@ unit cgppc;
rgobj,tgobj,cpupi,procinfo,paramgr; rgobj,tgobj,cpupi,procinfo,paramgr;
procedure tcgppcgen.a_call_ref(list : TAsmList;ref: treference); procedure tcgppcgen.a_call_ref(list : TAsmList;ref: treference);
var
tempreg : TRegister;
begin begin
a_reg_alloc(list,NR_R0); tempreg := getintregister(list, OS_ADDR);
a_load_ref_reg(list,OS_ADDR,OS_ADDR,ref,NR_R0); a_load_ref_reg(list,OS_ADDR,OS_ADDR,ref,tempreg);
a_call_reg(list,NR_R0); a_call_reg(list,tempreg);
a_reg_dealloc(list,NR_R0);
end; end;
end. end.