From d5a50eee8aeab634b763e2b8e9c80f4936c50fcc Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 18 Jun 2022 16:49:19 +0200
Subject: [PATCH] x86-64: properly set parameter alignment if not default

---
 compiler/x86_64/cpupara.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/x86_64/cpupara.pas b/compiler/x86_64/cpupara.pas
index 0878df911e..ae10cce43d 100644
--- a/compiler/x86_64/cpupara.pas
+++ b/compiler/x86_64/cpupara.pas
@@ -1707,6 +1707,7 @@ unit cpupara;
               begin
                 getvalueparaloc(p.proccalloption,hp.varspez,paralocdef,loc);
                 paralen:=push_size(hp.varspez,paralocdef,p.proccalloption);
+                paraalign:=max(paraalign,paradef.alignment);
                 if p.proccalloption = pocall_vectorcall then
                   begin
                     { TODO: Can this set of instructions be put into 'defutil' without it relying on the argument classification? [Kit] }