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

* store/reload toc around indirect calls for ELFv2 ABI

Browse Source 
* ensure that register calls happen via R12 on the ELFv2 ABI

git-svn-id: trunk@30207 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:35:59 +00:00
parent 33ed32b024
commit 5a6b9c9f16
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ppcgen/cgppc.pas
View File

@ -473,6 +473,7 @@ unit cgppc;
var var
tmpref: treference; tmpref: treference;
tmpreg: tregister; tmpreg: tregister;
toc_offset: longint;
begin begin
tmpreg:=NR_NO; tmpreg:=NR_NO;
if target_info.system in systems_aix then if target_info.system in systems_aix then
@ -496,12 +497,32 @@ unit cgppc;
a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_RTOC); a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_RTOC);
tmpref.offset:=2*sizeof(pint); tmpref.offset:=2*sizeof(pint);
a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_R11); a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_R11);
end
else if target_info.abi=abi_powerpc_elfv2 then
begin
{ save current TOC }
reference_reset_base(tmpref,NR_STACK_POINTER_REG,LA_RTOC_ELFV2,sizeof(pint));
a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_RTOC,tmpref);
{ functions must be called via R12 for this ABI }
if reg<>NR_R12 then
begin
getcpuregister(list,NR_R12);
a_load_reg_reg(list,OS_ADDR,OS_ADDR,reg,NR_R12)
end;
end; end;
list.concat(taicpu.op_none(A_BCTRL)); list.concat(taicpu.op_none(A_BCTRL));
if target_info.system in systems_aix then if (target_info.system in systems_aix) or
(target_info.abi=abi_powerpc_elfv2) then
begin begin
if (target_info.abi=abi_powerpc_elfv2) and
(reg<>NR_R12) then
ungetcpuregister(list,NR_R12);
{ restore our TOC } { restore our TOC }
reference_reset_base(tmpref,NR_STACK_POINTER_REG,LA_RTOC_AIX,sizeof(pint)); if target_info.system in systems_aix then
toc_offset:=LA_RTOC_AIX
else
toc_offset:=LA_RTOC_ELFV2;
reference_reset_base(tmpref,NR_STACK_POINTER_REG,toc_offset,sizeof(pint));
a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_RTOC); a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_RTOC);
end; end;
include(current_procinfo.flags,pi_do_call); include(current_procinfo.flags,pi_do_call);