From 1c23218375dbcf85b42eeb5d8d3b44f2823b9c24 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 13 Nov 2016 16:06:20 +0000
Subject: [PATCH]   * pass the parameter list directly to getparas()

git-svn-id: trunk@34888 -
---
 compiler/llvm/agllvm.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/llvm/agllvm.pas b/compiler/llvm/agllvm.pas
index 746ce1683e..b610b4bf86 100644
--- a/compiler/llvm/agllvm.pas
+++ b/compiler/llvm/agllvm.pas
@@ -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