paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +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:
tsuperregister; var cur_stack_offset: aword);
begin
{ register parameter save area begins at 48(r2) }
cur_stack_offset := 48;
case target_info.abi of
abi_powerpc_elfv2:
cur_stack_offset := 32;
else
cur_stack_offset := 48;
end;
curintreg := RS_R3;
curfloatreg := RS_F1;
curmmreg := RS_M2;