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

PPC64: don't save TOC in pure assembler routines

Browse Source 
Fix by Pierre

(cherry picked from commit 0fcc57fb4b)
This commit is contained in:
Jonas Maebe 2022-02-12 15:26:27 +01:00
parent 89bf3fe5ea
commit 076c9b06c1
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

@ -1255,7 +1255,8 @@ begin
{ save current RTOC for restoration after calls if necessary }
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
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);