paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

x86-64: properly set parameter alignment if not default

Browse Source
This commit is contained in:
Jonas Maebe 2022-06-18 16:49:19 +02:00
parent c42e64db82
commit d5a50eee8a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/x86_64/cpupara.pas
View File

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