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

--- Merging r42835 into '.':

Browse Source 
U    compiler/powerpc64/cpupara.pas
--- Recording mergeinfo for merge of r42835 into '.':
 U   .

git-svn-id: branches/fixes_3_2@42930 -
This commit is contained in:
Jonas Maebe 2019-09-07 12:23:20 +00:00
parent c07b8a1954
commit b489002e4e
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

@ -289,8 +289,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;