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

* update the stack alignment field of parameters when doing so for paralocs

Browse Source 
git-svn-id: trunk@41204 -
This commit is contained in:
Jonas Maebe 2019-02-03 21:00:57 +00:00
parent 7a65e1f393
commit 353be907c7
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/arm/cpupara.pas
View File

@ -458,7 +458,10 @@ unit cpupara;
if (nextintreg in [RS_R1,RS_R3]) then if (nextintreg in [RS_R1,RS_R3]) then
inc(nextintreg) inc(nextintreg)
else if nextintreg>RS_R3 then else if nextintreg>RS_R3 then
stack_offset:=align(stack_offset,8); begin
stack_offset:=align(stack_offset,8);
hp.paraloc[side].Alignment:=8;
end;
end; end;
if nextintreg<=RS_R3 then if nextintreg<=RS_R3 then
begin begin
@ -573,7 +576,10 @@ unit cpupara;
if (target_info.abi in [abi_eabi,abi_eabihf]) and if (target_info.abi in [abi_eabi,abi_eabihf]) and
firstparaloc and firstparaloc and
(paradef.alignment=8) then (paradef.alignment=8) then
stack_offset:=align(stack_offset,8); begin
stack_offset:=align(stack_offset,8);
hp.paraloc[side].Alignment:=8;
end;
paraloc^.loc:=LOC_REFERENCE; paraloc^.loc:=LOC_REFERENCE;
paraloc^.reference.index:=NR_STACK_POINTER_REG; paraloc^.reference.index:=NR_STACK_POINTER_REG;