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

* fixed size of base stack frame for ELFv2

Browse Source 
git-svn-id: trunk@42835 -
This commit is contained in:
Jonas Maebe 2019-08-26 19:26:14 +00:00
parent 3d64594ad7
commit a6a6c2cb07
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc64/cpupara.pas
View File

@ -298,8 +298,12 @@ function tcpuparamanager.ret_in_param(def: tdef; pd: tabstractprocdef): boolean;
procedure tcpuparamanager.init_values(var curintreg, curfloatreg, curmmreg: procedure tcpuparamanager.init_values(var curintreg, curfloatreg, curmmreg:
tsuperregister; var cur_stack_offset: aword); tsuperregister; var cur_stack_offset: aword);
begin begin
{ register parameter save area begins at 48(r2) } case target_info.abi of
cur_stack_offset := 48; abi_powerpc_elfv2:
cur_stack_offset := 32;
else
cur_stack_offset := 48;
end;
curintreg := RS_R3; curintreg := RS_R3;
curfloatreg := RS_F1; curfloatreg := RS_F1;
curmmreg := RS_M2; curmmreg := RS_M2;