瀏覽代碼

* Wasm: generator for invoke helper now handles overloaded methods in interfaces

Michaël Van Canneyt 1 年之前
父節點
當前提交
02704f85a9
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      compiler/symcreat.pas

+ 3 - 3
compiler/symcreat.pas

@@ -1232,7 +1232,7 @@ implementation
   function str_parse_method(str: ansistring): tprocdef; forward;
 
 
-  procedure implement_invoke_helper(cn : string;pd: tprocdef);
+  procedure implement_invoke_helper(cn : string;pd: tprocdef; idx : integer);
 
     var
       sarg,str : ansistring;
@@ -1246,7 +1246,7 @@ implementation
     begin
       str:='procedure __invoke_helper__';
       pn:=pd.procsym.realname;
-      str:=str+cn+'__'+pn;
+      str:=str+cn+'__'+pn+'_'+tostr(idx);
       for I:=1 to length(str) do
         if str[i]='.' then
           str[i]:='_';
@@ -1412,7 +1412,7 @@ implementation
                   cn:=tobjectdef(def.owner.defowner).GetTypeName
                 else
                   internalerror(2023061107);
-                implement_invoke_helper(cn,pd);
+                implement_invoke_helper(cn,pd,i);
               end;
           end;
         end;