From bead1f81802eaf2f58a58bc4181e29575080d492 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 24 Feb 2019 19:58:57 +0000
Subject: [PATCH]   * properly set 8 byte parameter alignment for first
 parameter on ARM if     applicable

git-svn-id: trunk@41447 -
---
 compiler/arm/cpupara.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/arm/cpupara.pas b/compiler/arm/cpupara.pas
index 1fdc985c18..9dae34e7a2 100644
--- a/compiler/arm/cpupara.pas
+++ b/compiler/arm/cpupara.pas
@@ -512,13 +512,11 @@ unit cpupara;
                            firstparaloc and
                            (paradef.alignment=8) then
                           begin
+                            hp.paraloc[side].Alignment:=8;
                             if (nextintreg in [RS_R1,RS_R3]) then
                               inc(nextintreg)
                             else if nextintreg>RS_R3 then
-                              begin
-                                stack_offset:=align(stack_offset,8);
-                                hp.paraloc[side].Alignment:=8;
-                              end;
+                              stack_offset:=align(stack_offset,8);
                           end;
                         if nextintreg<=RS_R3 then
                           begin