mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-13 05:40:20 +02:00
* pass the parameter list directly to getparas()
git-svn-id: trunk@34888 -
This commit is contained in:
parent
bdfd588b47
commit
1c23218375
@ -274,17 +274,17 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
function getparas(const o: toper): ansistring;
|
||||
function getparas(const paras: tfplist): ansistring;
|
||||
var
|
||||
i: longint;
|
||||
para: pllvmcallpara;
|
||||
begin
|
||||
result:='(';
|
||||
for i:=0 to o.paras.count-1 do
|
||||
for i:=0 to paras.count-1 do
|
||||
begin
|
||||
if i<>0 then
|
||||
result:=result+', ';
|
||||
para:=pllvmcallpara(o.paras[i]);
|
||||
para:=pllvmcallpara(paras[i]);
|
||||
result:=result+llvmencodetypename(para^.def);
|
||||
if para^.valueext<>lve_none then
|
||||
result:=result+llvmvalueextension2str[para^.valueext];
|
||||
@ -405,7 +405,7 @@ implementation
|
||||
end;
|
||||
top_para:
|
||||
begin
|
||||
result:=getparas(o);
|
||||
result:=getparas(o.paras);
|
||||
end;
|
||||
top_tai:
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user