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

* fixed bug that caused the "sret" argument attribute to never be used (and

Browse Source 
a guaranteed internalerror on AArch64/llvm)

git-svn-id: trunk@40565 -
This commit is contained in:
Jonas Maebe 2018-12-16 20:44:09 +00:00
parent 2e98c7d41b
commit 97bc58d248
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/llvm/llvmdef.pas
View File

@ -690,9 +690,7 @@ implementation
llvmextractvalueextinfo(hp.vardef,usedef,signext); llvmextractvalueextinfo(hp.vardef,usedef,signext);
{ implicit zero/sign extension for ABI compliance? } { implicit zero/sign extension for ABI compliance? }
if not first then if not first then
encodedstr:=encodedstr+', ' encodedstr:=encodedstr+', ';
else
first:=false;
llvmaddencodedtype_intern(usedef,[],encodedstr); llvmaddencodedtype_intern(usedef,[],encodedstr);
{ in case signextstr<>'', there should be only one paraloc -> no need { in case signextstr<>'', there should be only one paraloc -> no need
to clear (reason: it means that the paraloc is larger than the to clear (reason: it means that the paraloc is larger than the
@ -769,6 +767,7 @@ implementation
encodedstr:=encodedstr+' '+llvmasmsymname(paraloc^.llvmloc.sym); encodedstr:=encodedstr+' '+llvmasmsymname(paraloc^.llvmloc.sym);
end; end;
paraloc:=paraloc^.next; paraloc:=paraloc^.next;
first:=false;
until not assigned(paraloc); until not assigned(paraloc);
end; end;