2
0
Эх сурвалжийг харах

* pass the parameter list directly to getparas()

git-svn-id: trunk@34888 -
Jonas Maebe 8 жил өмнө
parent
commit
1c23218375

+ 4 - 4
compiler/llvm/agllvm.pas

@@ -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