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

PPC64: don't save TOC in pure assembler routines

Browse Source 
Fix by Pierre
This commit is contained in:
Jonas Maebe 2022-02-12 15:26:27 +01:00
parent b97c8bdf55
commit 0fcc57fb4b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/powerpc64/cgcpu.pas
View File

@ -1259,7 +1259,8 @@ begin
{ save current RTOC for restoration after calls if necessary } { save current RTOC for restoration after calls if necessary }
if (pi_do_call in current_procinfo.flags) and if (pi_do_call in current_procinfo.flags) and
(target_info.abi in abis_ppc_toc) then (target_info.abi in abis_ppc_toc) and
not nostackframe then
begin begin
reference_reset_base(href,NR_STACK_POINTER_REG,get_rtoc_offset,ctempposinvalid,target_info.stackalign,[]); reference_reset_base(href,NR_STACK_POINTER_REG,get_rtoc_offset,ctempposinvalid,target_info.stackalign,[]);
a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_RTOC,href); a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_RTOC,href);