paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 15:59:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* no longer change r12 when fpu regs have to saved, corrupted copying of

Browse Source 
stack parameters coming after that

git-svn-id: trunk@130 -
This commit is contained in:
Jonas Maebe 2005-05-27 22:09:49 +00:00
parent bc223811c3
commit aea6563bba
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/powerpc/cgcpu.pas
View File

@ -1174,9 +1174,12 @@ const
end; end;
end; end;
{ compute end of gpr save area } { compute start of gpr save area }
a_op_const_reg(list,OP_ADD,OS_ADDR,href.offset+8,NR_R12); inc(href.offset,4);
end; end
else
{ compute start of gpr save area }
reference_reset_base(href,NR_R12,-4);
{ save gprs and fetch GOT pointer } { save gprs and fetch GOT pointer }
if usesgpr then if usesgpr then
@ -1190,7 +1193,6 @@ const
else else
a_call_name(objectlibrary.newasmsymbol('_savegpr_'+tostr(ord(firstreggpr)-ord(R_14)+14),AB_EXTERNAL,AT_FUNCTION)) a_call_name(objectlibrary.newasmsymbol('_savegpr_'+tostr(ord(firstreggpr)-ord(R_14)+14),AB_EXTERNAL,AT_FUNCTION))
} }
reference_reset_base(href,NR_R12,-4);
for regcounter2:=RS_R13 to RS_R31 do for regcounter2:=RS_R13 to RS_R31 do
begin begin
if regcounter2 in rg[R_INTREGISTER].used_in_proc then if regcounter2 in rg[R_INTREGISTER].used_in_proc then