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

* ensure that the VMT for the function reference interface is generated correctly, but for this the invokedef needs to be copied without hidden parameters (and handle_calling_convention will be done by the VMT builder as well)

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-05-29 13:57:19 +02:00
parent dadc10658c
commit 29cfa3b225
1 changed files with 3 additions and 2 deletions

5
compiler/procdefutil.pas
View File

@ -313,7 +313,7 @@ implementation
oldsymtablestack:=symtablestack;
symtablestack:=nil;
invokedef:=tprocdef(pd.getcopyas(procdef,pc_normal,'',false));
invokedef:=tprocdef(pd.getcopyas(procdef,pc_normal_no_hidden,'',false));
invokedef.struct:=result;
invokedef.visibility:=vis_public;
invokedef.procsym:=cprocsym.create(method_name_funcref_invoke_decl);
@ -329,7 +329,6 @@ implementation
result.symtable.insertsym(invokedef.procsym);
result.symtable.insertdef(invokedef);
handle_calling_convention(invokedef,hcc_default_actions_intf_struct);
proc_add_definition(invokedef);
invokedef.calcparas;
include(result.objectoptions,oo_has_virtual);
@ -337,6 +336,8 @@ implementation
symowner.insertsym(sym);
symowner.insertdef(result);
addsymref(sym);
build_vmt(result);
end;