paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 23:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-06 15:49:06 +02:00
parent e657d6a07d
commit 02704f85a9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symcreat.pas
View File

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