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

* pass the parameter list directly to getparas()

Browse Source 
git-svn-id: trunk@34888 -
This commit is contained in:
Jonas Maebe 2016-11-13 16:06:20 +00:00
parent bdfd588b47
commit 1c23218375
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/agllvm.pas
View File

@ -274,17 +274,17 @@ implementation
end; end;
function getparas(const o: toper): ansistring; function getparas(const paras: tfplist): ansistring;
var var
i: longint; i: longint;
para: pllvmcallpara; para: pllvmcallpara;
begin begin
result:='('; result:='(';
for i:=0 to o.paras.count-1 do for i:=0 to paras.count-1 do
begin begin
if i<>0 then if i<>0 then
result:=result+', '; result:=result+', ';
para:=pllvmcallpara(o.paras[i]); para:=pllvmcallpara(paras[i]);
result:=result+llvmencodetypename(para^.def); result:=result+llvmencodetypename(para^.def);
if para^.valueext<>lve_none then if para^.valueext<>lve_none then
result:=result+llvmvalueextension2str[para^.valueext]; result:=result+llvmvalueextension2str[para^.valueext];
@ -405,7 +405,7 @@ implementation
end; end;
top_para: top_para:
begin begin
result:=getparas(o); result:=getparas(o.paras);
end; end;
top_tai: top_tai:
begin begin