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

* llvm: only set custom parameter alignments for byval parameters, the rest

Browse Source 
is handled automatically by llvm (and since llvm 11.0 you get an error if
    you specify an alignment for them anyway)

git-svn-id: trunk@48100 -
This commit is contained in:
Jonas Maebe 2021-01-06 22:35:40 +00:00
parent 090d9abafe
commit 80282d6eff
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/llvm/hlcgllvm.pas
View File

@ -477,10 +477,6 @@ implementation
begin
new(callpara);
callpara^.def:=paraloc^.def;
if firstparaloc then
callpara^.alignment:=paras[i]^.Alignment
else
callpara^.alignment:=std_param_align;
{ if the paraloc doesn't contain the value itself, it's a byval
parameter }
if paraloc^.retvalloc then
@ -493,6 +489,11 @@ implementation
callpara^.sret:=false;
callpara^.byval:=not paraloc^.llvmvalueloc;
end;
if firstparaloc and
callpara^.byval then
callpara^.alignment:=paras[i]^.Alignment
else
callpara^.alignment:=std_param_align;
llvmextractvalueextinfo(paras[i]^.def, callpara^.def, callpara^.valueext);
case paraloc^.llvmloc.loc of
LOC_CONSTANT: