diff --git a/compiler/jvm/pjvm.pas b/compiler/jvm/pjvm.pas index f9dc2a712a..2eba3fcb4d 100644 --- a/compiler/jvm/pjvm.pas +++ b/compiler/jvm/pjvm.pas @@ -322,7 +322,6 @@ implementation vmtbuilder:=TVMTBuilder.Create(enumclass); vmtbuilder.generate_vmt; vmtbuilder.free; - insert_struct_hidden_paras(enumclass); restore_after_new_class(sstate,islocal,oldsymtablestack); current_structdef:=old_current_structdef; @@ -433,7 +432,6 @@ implementation vmtbuilder:=TVMTBuilder.Create(pvclass); vmtbuilder.generate_vmt; vmtbuilder.free; - insert_struct_hidden_paras(pvclass); restore_after_new_class(sstate,islocal,oldsymtablestack); end; diff --git a/compiler/nobj.pas b/compiler/nobj.pas index 5bba262cde..2a898b2838 100644 --- a/compiler/nobj.pas +++ b/compiler/nobj.pas @@ -60,7 +60,8 @@ implementation globals,verbose,systems, node, symbase,symtable,symconst,symtype,symcpu, - defcmp; + defcmp, + pparautl; {***************************************************************************** @@ -922,6 +923,7 @@ implementation add_new_vmt_entry(tprocdef(def),overridesclasshelper); end; end; + insert_struct_hidden_paras(_class); build_interface_mappings; if assigned(_class.ImplementedInterfaces) and not(is_objc_class_or_protocol(_class)) and diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas index 4def01ba87..fcb19c2c3d 100644 --- a/compiler/pdecl.pas +++ b/compiler/pdecl.pas @@ -888,7 +888,6 @@ implementation vmtbuilder:=TVMTBuilder.Create(tobjectdef(hdef)); vmtbuilder.generate_vmt; vmtbuilder.free; - insert_struct_hidden_paras(tobjectdef(hdef)); end; { In case of an objcclass, verify that all methods have a message diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas index e62f005452..4e52761d73 100644 --- a/compiler/pgenutil.pas +++ b/compiler/pgenutil.pas @@ -1059,7 +1059,6 @@ uses vmtbuilder:=TVMTBuilder.Create(tobjectdef(result)); vmtbuilder.generate_vmt; vmtbuilder.free; - insert_struct_hidden_paras(tobjectdef(result)); end; { handle params, calling convention, etc } procvardef: