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

* properly set 8 byte parameter alignment for first parameter on ARM if

Browse Source 
applicable

git-svn-id: trunk@41447 -
This commit is contained in:
Jonas Maebe 2019-02-24 19:58:57 +00:00
parent 6071263469
commit bead1f8180
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/cpupara.pas
View File

@ -512,13 +512,11 @@ unit cpupara;
firstparaloc and firstparaloc and
(paradef.alignment=8) then (paradef.alignment=8) then
begin begin
hp.paraloc[side].Alignment:=8;
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
begin stack_offset:=align(stack_offset,8);
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