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

* perform interface dispatches via R12 instead of R11 as expected for

Browse Source 
indirect function calls for ELFv2 (and other ABIs don't care about
    the register)

git-svn-id: trunk@30236 -
This commit is contained in:
Jonas Maebe 2015-03-15 14:00:32 +00:00
parent 2bcef2daee
commit f633d094ee
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/ppcgen/cgppc.pas
View File

@ -786,15 +786,17 @@ unit cgppc;
smallint((href.offset shr 16)+ord(smallint(href.offset and $ffff) < 0))));
href.offset := smallint(href.offset and $ffff);
end;
a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_R11);
{ use R12 for dispatch because most ABIs don't care and ELFv2
requires it }
a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_R12);
if (target_info.system in systems_aix) or
((target_info.system = system_powerpc64_linux) and
(target_info.abi=abi_powerpc_sysv)) then
begin
reference_reset_base(href, NR_R11, 0, sizeof(pint));
a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, NR_R11);
reference_reset_base(href, NR_R12, 0, sizeof(pint));
a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, NR_R12);
end;
list.concat(taicpu.op_reg(A_MTCTR,NR_R11));
list.concat(taicpu.op_reg(A_MTCTR,NR_R12));
list.concat(taicpu.op_none(A_BCTR));
if (target_info.system in ([system_powerpc64_linux]+systems_aix)) then
list.concat(taicpu.op_none(A_NOP));